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Introduction 



Lee Pappas and Mike DesChenes of Worcester, Massachusetts bought their first Atari home com- 
puters in November of 1979. Their first year as Atari owners was spent developing their program- 
ming skills, blowing away Zylons, and tearing out their hair because of the lack of support for their 
new machines. Where was the information that they (and thousands of other Atari owners) so 
desperately needed? From the seeds of this frustration, Atari users groups began sprouting up all 
over the country. New Atari owners started pooling their knowledge and linking their collective 
consciousness via bulletin board systems. Nevertheless, there was no dedicated publication for 
their systems, no single source of information that could link Atari owners together. Lee and Mike 
decided to do something about it. 

In November of 1980, they started an Atari-only publication called A.N.A.L.O.G. 400/800 
Magazine. The first issue was only 40 pages long, and had a modest print run of 4000 copies. Grati- 
fyingly, it sold out. Almost three years and 15 issues later, A.N.A.L.O.G Computing has grown to 
over 160 pages, with a world-wide distribution of over 80,000 copies — and no end in sight. 

With the smaller print runs of the earlier issues, we had virtually no returns. Supplies of back 
issues sent out from our editorial offices were quickly exhausted. Reprints were done of issues 2, 3 
and 4- These sold out, too. Compounding the problem was the fact that the newcomers to 
A.N.A.L.O.G. wanted any and all issues previous to the first one they purchased. The later the 
issue, the more back issues they needed. The solution? This book. 

The A.N.A.L.O.G. Compendium is not intended as an all-encompassing primer on Atari pro- 
gramming. Although many of the programs included here were originally written as tutorials, it was 
never our intention to publish a textbook. The A.N.A.L.O.G. Compendium is presented solely 
as a collection of programs to benefit those who missed out on our first ten issues. Some of the 
programs here have been revised and improved since they originally appeared in the magazine. 
We have also included several programs never before published. 

Whether you're interested in utilities, tutorials or games, we hope you enjoy our first book. 



Jon A. Bell 

Managing Editor 

A.N.A.L.O.G. Computing 






CHECKSUM PROGRAMS 



Important! 

All of the programs in The A.N.A.L.O.G. Compendium were listed from working copies of 
the program in order to minimize errors. However, there is a strong possibility of readers mis-typing 
programs, especially when entering lengthy listings. Before you type in any of these programs, it is 
strongly advised that you read pages 7-10. (C:CHECK and D: CHECK 2). These programs will assist 
you in checking fot typing errors when entering in programs from The A.N.A.L.O.G. Compen- 
dium. 
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O CHECK 



16K Cassette 



by Istvan Mohos and Tom Hudson 



When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. CrCHECK will help 
you find such errors very easily. Type in the accom- 
panying program and SAVE it. Follow the instruc- 
tions below to check CrCHECK as you would any 
other program. 

CHECKing your typing. 

1 . Type in the program listing from the Com- 
pendium. Visually check it for obvious errors 
(missing lines, etc ). 

2. LIST the program to be checked to 
cassette. Use the command: 

LIST "C:" 

3. LOAD OCHECK and RUN it. 

4. OCHECK will ask you if you want the 
output to go to the screen or printer. Type S for 
screen or P for printer and press RETURN. 

5. C: CHECK will ask for an issue number. 
For the Compendium, type 99 and press RE- 
TURN. If you read A.N.A.L.O.G. Comput- 
ing Magazine, you can use CrCHECK to check 
the programs in each issue. Just type the issue 
number and press RETURN. 

6. Position the tape to the beginning of the 
program to be checked and press PLAY on the 
program recorder. Press RETURN. 

7. CrCHECK will begin reading the program 
from tape and generate a checksum table. This 
data should match the "CHECKSUM DATA" 
printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

10 DATA 34,455,234,22,55,38,93,45,114, 

285,633,442,453,23,31,2957 

168 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2302 

318 DATA 65,356,101,25,547 



Sample OCHECK output: 

10 DATA 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3108 

160 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,46,98,9,342,2302 

310 DATA 65,101,34,200 

Each line of the program being checked has 
its own checksum value. If any characters in the 
line are incorrect, the checksum value will be 
different from the corresponding value in the 
Compendium. The checksum data is set up so that 
there are 15 checksum values in each line with the 
16th value containing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let's assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with CrCHECK. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the CrCHECK 
output, the total is 3108. This means that there is an 
error in the 15 checksum values in this line. Com- 
paring the Compendium checksums to the 
CrCHECK output, we find that the seventh check- 
sum is 244 in the CrCHECK data, and should be 93. 
This means that there is an error in the seventh line 
of the program. Note the error and continue 
checking. The rest of the line is correct, so we go on 
to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our CrCHECK 
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data matches the total in the Compendium, so we 

can go on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro- 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see, 
the total of the line should be 547, but is only 200 in 
the C:CHECK data. Looking at the GCHECK 
output, you will notice that there is one less check- 
sum value (the 356 in the Compendium checksum 
data). This means that the first line in the program 
after line 310 is missing. The last checksum in this 
line is also incorrect. It is a 34 and should be 25 . This 
means that the third line after line 310 in the pro- 
gram is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

... Once you have noted all errors, type NEW and 
press RETURN. This erases the CCHECK 
"program. Next, bring the program being checked 
into memory by positioning the tape and typing: 
ENTER "Q" 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
aud ready to run. □ 



330 ? tt2;CHKSUM;","; ; TOTAL=TOTAL+CHKSU 

M:G0T0 23B 

340 CLOSE ttl:IF LINECOUNT = 7- THEN 370 

350 ? «2; TOTAL 

360 CLOSE »2:EH0 

378 ? "RiQ":? "Vour typed-in prograi* wa 

s not properlyLISTed to tape." 

380 ? :? "Please LIST your program to 

tape, thenRUN ";CHR$t34) ; "CHECK" ; CHRS ( 

34);" again. ":CL05E »2:CLR :END 



CHECKSUM DATA 
(See pgs. 7-10) 

108 DATA 198,755,11,135,191,594,198,88 
6,763,467,931,108,465,572,187,6297 
258 DATA 764,922,11,168,375,783,384,25 
9,534,898,875,136,732,361,7114 



108 REM 33133 DEBUGGING 610 

BV ISTUAN M0HOS 
118 REM VERSION 2 MODS AND CASSETTE 
128 REM VERSION BV TOM HUDSON 
130 GRAPHICS 6:' !"? "This run Will LIS 
T data statements to the screen or 
printer ." 

148 ? :» "This DATA is created by eual 
dating each character of a user pro 
gram, LISTed to tape,": 7 
158 DIM OUTSU) ,I$C128) .CRSCi) 
168 ? "OUTPUT TO SCREEN OR QRINTER";:! 
NPUT OUTS I IF 0UT$<>"S" AND 0UT$<>"P" T 
HEN 168 

170 IF 0UT$="S" THEH OPEN tt2,8,8,"E:": 
GOTO 268 
188 CLOSE 82:' "QREADY PRINTER AND PRE 

ss aiinail"; .-input crs 

198 TRAP 188;0PEN tt2,8,8,"P:" 

288 * !? "ENTER ISSUE NUMBER" ;: TRAP 28 

0: INPUT ISSUE 

218 ? !? "READY TAPE AND PRESS HUDHi" 

; :0PEH »l,4,0 r "C:":' :? 

228 Z=8:LINEC0UNT=Z:PLIN=Z:X=2 

238 TRAP 348: INPUT Ol , IS : LINECOIINT = LIN 

EC0UNT + 1 :LINUM=UAL CIS (1.5)) 

248 NLCK=NLCK+1 : IF NLCK> 1 AND NLCK<16 

THEN 298 

258 IF LINEC0UNT=1 THEN 288 

268 ? «2 J TOTAL :NLCK = 1 

278 IF 0UTS = "'S" THEN PLIN=PLTN+l:TF PL 

INZ18 THEN ' "PRESS \3MBEES TO CONTINUE 

"; :INPUT CRS:PLIN=0 

288 T0TAL=Z:' tt2;LINUM;" DATA "; 

298 CHKSUM=Z:IF ISSUE>9 THEH K=2 

388 FOR 1 = 1 TO LEN C IS) ! PR0DUCT=K*ASC tl 

S CI , I) ) : CHKSUM=CHKSUM+PR0DUCT : K=H + 1 : IF 

H=4 THEN X=l 
318 NEXT I:CHK5UM=CHKSUM+X*155:X=X+1 :I 
F W.~A- TMpy y — t 

328 _ CHKSHM=CHksUM-1080*INTCCHKSUM/1888 
) 
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D:CHECK 2 



16K Disk 



by Istvan Mohos and Tom Hudson 



When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. D:CHECK2 will help 
you find such errors very easily. Type in the accom- 
panying program and SAVE it. Follow the instruc- 
tions below to check D:CHECK2 as you would any 
other program. 

CHECKing your typing. 

1 . Type in the program listing from the Com- 
pendium. Visually check it for obvious errors 
(missing lines, etc.). 

2. LIST the program to be checked to disk. 
Use the command: 

LIST "Drprogname" 

3. LOAD D:CHECK2 and RUN it. 

4. D:CHECK will ask for a filename. Re- 
spond: 

D:progname 
and press RETURN. 

5. D:CHECK2 will ask for an issue number. 
For the Compendium, type 99 and press RE- 
TURN. If you read A.N.A.L.O.G. Comput- 
ing Magazine, you can use D:CHECK2 to 
check the programs in each issue. Just type the 
issue number and press RETURN. 

6. D:CHECK2 will execute. The screen will 
go black in order to speed up the program. 

7. When D:CHECK2 finishes, it will display 
final instructions. At this time you should type 
NEW and press RETURN. 

8. When D:CHECK2 executed, it created a 
BASIC file on disk called BUG. ENTER it into 
your computer with the command: 

ENTER "D:BUG" 
This file should match the "CHECKSUM 
DATA" printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

10 DATA 34,455,234,22,55,38,93,45,114, 

285,633,442,453,23,31,2957 

168 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2382 

318 DATA 65,356,181,25,547 



Sample "D:BUG" CHECKSUM DATA: 

18 DATA 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3188 

168 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2382 

318 DATA 65,181,34,288 

Each line of the program being checked has its 
own checksum value. If any characters in the line are 
incorrect, the checksum value will be different from 
the corresponding value in the Compendium. The 
checksum data is set up so that there are 15 check- 
sum values in each line with the 16th value contain- 
ing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let's assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with D:CHECK2. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the BUG file, the 
total is 3108. This means that there is an error in the 
15 checksum values in this line. Comparing the 
Compendium checksums to the BUG checksums, 
we find that the seventh checksum is 244 in the BUG 
data, and should be 93. This means that there is an 
error in the seventh line of the program. Note the 
error and continue checking. The rest of the line is 
correct, so we go on to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our BUG file 
matches the total in the Compendium, so we can go 
on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro- 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see, 
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the total of the line should be 547, but is only 200 in 
the BUG file. Looking at the BUG file, you will 
notice that there is one less checksum value ( the 356 
in the Compendium checksum data). This means 
that the first line in the program after line 310 is 
missing. The last checksum in this line is also incor- 
rect. It is a 34 and should be 25. This means that the 
third line after line 310 in the program is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Once you have noted all errors, type NEW and 
press RETURN. This erases the D:CHECK2 
program. Next, bring the program being checked 
into memory by typing: 

ENTER "D:progname" 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. LI 



to rem BCBB3 debugging aid 

BY TSTUAN MOH0S 
70 REM VERSION 7 MODS BY TDM HUDSON 
30 GRAPHICS 0:' f? "This run will LIST 
data statements with the name: T3IE 

, to the disk , " 

40 o \i "The fVPTa data is created by eu 

aluating each character of a user prog 

ran, LISTed to disk.":' 

50 DTM FISC155 

60 CLOSE ttl:? "ENTER FILENAME" ;: INPUT 

FTS __'__ 

70 PIK=PEEKC5595 ;Z=0:REM [<-1ilAfr1i»5 

80 ? !? "ENTER ISSUE NUMBER" ;: TRAP 80: 

INPUT ISSUE 

90 TRAP 60:0PEN ttl,4,0,FlS 

t00 ON X GOTO 180,280 

1.10 ? "K";? "DISABLING SCREEN ... STAND 

8Y,.,";F0R 1 = 1 TO 800:NEXT T;P0KE 559, 

Z:REM debug before poking 

120 LINEC0UNT=Z;DTM 15(1205 

130 TRAP 150: INPUT ttl ; IS : LINEC0UNT=LIN 

EC0UNT+1 

140 GOTO 130 

150 CLOSE ttl:0 = INT(LINEC0UNT/155 :DIM C 

(LINEC0UNT5 ,R(03 , SS (55 : IF (LINECOUNTzZ 

OR IS=""5 THEN 530 
160 IF A5C(lS(l,15J<48 OR A5C(lS(l,155 
>57 THEN 530 
170 X=1:G0T0 90 

180 RANGE=Z;LINE=Z:F0R 1=1 TO 5;SS(I.I 
)r" ":NFXT I 
190 COUNTS 

2O0 INPUT ttl;lS:T=l:C0UNT=C0UNT+l 
210 IF IS(T,T5<>" " THEN SS CT , T5 =TS (T , 
Tl :T=T+1:G0T0 210 
220 LTNE=UALCSS5 

230 R(RANGE5=LINE:RANGE=RANGF+1 
240 TRAP 270 .INPUT ttl; IS 

250 C0UNT=C0UNT+l:IF C0I1NT = 15 THEN 190 
760 GOTO 240 

270 CLOSE ttl:X = 2:G0T0 90 
780 FOR 1=1 TO LINECOUNT:CHECKSUM=Z 
290 GET ttl, NUMBER :PR0DUCT = X#NUM8ER: CHE 
CKSUM=CHECKSUM+PRQOUCT:X=X+t : IF X=4 TH 
EN H=l 

300 IF NUMBER=L55 THEN 320 
310 GOTO 290 

320 CHECK5UM=CHECKSUM-tO0O#INTfCHECKSU 
M/18005 :C(I5=CHECK5UM:IF I5SUE>9 THEN 
X = 2 

330 NFHT I 

340 CLOSE ttl :0PEN «i , 8 , , "D : SHG" : LINE = 
RCZJ :ITEM=Z 



350 C0UNT=15:T0TAL=Z:IF LINEC0UNT<15 T 

HEN C0I1NT = LINEC0UNT 

360 PRINT ttl; LINE;" DATA "J 

370 FOR 1=1 TO C0UNT:DATUM=C(15*ITEM+I 

5 :PRINT ttl;0ATUM;","; : TOTAL=TOTAL+DATU 

M:NEXT I 

380 PRINT ttl ; TOTAL 

390 ITEM=ITEM+l:LINEC0UNT=LINEC0UNT-l5 

:IF LINECOUNKl THEN 420 

400 LINE=R (ITEMS 

410 GOTO 350 

420 CLOSE ttl :P0KE 559 , PIK 

430 ? "«QTo check UfSU\ data against pri 

nted data statements, type NEW. Th 

en type:" 

440 * "ENTER " ; CHRS (345 ; "D : BUGlJillliCJ . 

Type LIST after the 
READY prompt." 

450 ? !? "The line number of each data 
statementcoinc ides with the first lin 
e of the" 

460 ? "user program which the data sta 
tement evaluates. " 

470 ? "Numbers within each data statem 
represent consecutive lines of 
user program." 
"The last numb er i s the total." 
:-> !! Cherj, the EE5H nsjwber of eac 
went against the printed ver 



ent 
the 
480 
490 



h state 
sion;" 
500 ? "only in case of 
each number in 



a discrepancy c 
the data stateme 



heck 

nt ." 

510 ? "Make note of the lines containi 

n 9 the b ugs T hen ENTER ";CHR$ (345 ; "D : 

tfourprog(aaEEC3" 

520 ? "to make the corrections ," :FND 

530 POKE 559, PIK:? "KQ":? "Your typed- 

in program was not properlyLISTed to d 

isk." 

540 ? !? "Please LIST your program to 

disk, thenRUN " ;CHRS (34) ;"D :CHECK";CHR 

5(345;" again. ":CLR :END 



CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 44,815,767,524,686,389,806,850 

,86,721,921,593,591,704,974,9471 

168 DATA 482,125.389,696,567,797,442,5 

61,230,89,717,216,943,541,299,7094 

310 DATA 719,711,741,427,244,435,288,5 

84,553,441,711,499,803,322,515,7993 

460 DATA 246,684,406,232,123,700,480,7 

74,500,4145 
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UNLEASH THE POWER 
OF ATARI'S CPU 



by Ed Stewart 



Would you like to get as much as a 30% increase in 
speed from your ATARI 6502 CPU? Would you 
also like to get this benefit without any additional 
capital expense? If your answer is no, you probably 
don't like apple pie, either. . .but if your answer is 
yes, read on, and I will tell you how to accomplish 
such a feat with one simple BASIC POKE in the right 
place. 

First, a little background information about one 
of the many things going on inside your ATARI 
computer. The particular thing that I want you to 
know about is how display information reaches your 
TV screen. There is a hardware chip called ANTIC 
that has most of the responsibility for seeing that the 
display gets to your TV screen. ANTIC does this by 
operating independently from the main 6502 CPU 
in your computer. ANTIC is, in fact, a primitive 
CPU in its own right. It executes a program which is 
located in RAM, j ust as the 6502 executes a program 
in RAM or ROM. We can therefore call the ATARI a 
multiprocessing computer, since more than one 
CPU may be active at any time. 

A peculiar and somewhat unfortunate thing hap- 
pens when a multiprocessing system such as the 
ATARI is actively executing instructions — both 
CPUs desire access to memory simultaneously. The 
two CPUs cannot both access memory at the same 
time, so one must wait until the other completes its 
access request. This memory access conflict is 
common to all computers containing more than one 
CPU — from micros to macros — and is generally 
not something to be concerned about. 

The ANTIC chip fetches its data from memory 
using a technique called "Direct Memory Access" or 
DMA. Whenever this memory fetch is occurring, 
the 6502 is temporarily halted. DMA is said to be 
"stealing" a portion of the computer's available 
time, called a cycle. There are 1,789,790 cycles of 
computer time available per second. If DMA had not 
"stolen" that cycle of computer time, the 6502 



would not have been halted and, therefore, would 
have finished its program instructions sooner. It is 
only logical to conclude that the more this DMA ac- 
tivity occurs on behalf of the ANTIC chip, the more 
our 6502 will be slowed down. 

The ANTIC chip re-displays the entire TV display 
60 times each second. During this period, many 
computer cycles are stolen from the 6502. During 
each of these 60 times, the ANTIC chip also "inter- 
rupts" the 6502 and causes it to perform such tasks 
as updating various software timers and reading 
game controllers (joysticks and paddles). When the 
6502 finishes what it must do in response to the 
ANTIC "interrupt," it may continue with what it 
was doing previous to being sidetracked by ANTIC. 
You should be getting the picture by now that, al- 
though ANTIC is indispensable, it causes a slow- 
down in the 6502 CPU. But how much? 

I wrote a simple BASIC program for my ATARI 
800 in an attempt to answer this question. A 
FOR/NEXT loop was executed 100,000 times with 
no intervening statements as follows: 

20 FOR 1=1 TO 1008OO: NEXT I 

The first thing to measure was how long this loop 
executes with no ANTIC DMA active. A POKE 
559,0 turned DMA off, and the TV screen went 
black. A POKE 559,34 turned DMA back on, and 
the original display was restored. The FOR/NEXT 
loop was executed in graphics modes 0-8 with DMA 
active, and the executive times were observed as 
shown in Table 1. The execution times with DMA 
increased from as little as 10% for graphics 3 to as 
much as 47% for graphics 8. 

It is easy to see that — if you do a lot of number 
crunching and you don't need the TV screen, soft- 
ware timers or game controllers — then turn off the 
ANTIC DMA for a while, and you'll get your answer 
back sooner. It is also apparent from the chart below 
that your programs will execute faster if you are 
using graphics modes 3, 4, or 5. 
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I hope you have learned a little bit more about the 
ATARI computer and how the ANTIC DMA inter- 
feres with the 6502 CPU. You may someday be able 
to leash that latent power within during a computer 
chess tournament, and — when someone asks how 
in the world you did it — you can smile and say, " 
and my DMA." □ 



me 



GRAPHICS EXECUTION % INCREASE 
MODE SECONDS (over no-DMA) 



NO DMA 


148 




GRAPHICS 


216 


46 


GRAPHICS 1 


188 


27 


GRAPHICS 2 


186 


26 


GRAPHICS 3 


163 


10 


GRAPHICS 4 


164 


11 


GRAPHICS 5 


167 


13 


GRAPHICS 6 


173 


17 


GRAPHICS 7 


185 


25 


GRAPHICS 8 


218 


47 



Graphics 9 GTIA Demo 



18 REM GRAPHICS 9 GTIA DEMO COUAL) 

26 REM 

38 GRAPHICS 9 

46 C=6:SETC0L0R 4,C,8 

56 FOR X=6 TO 39 

66 FOR Y=0 TO 95 

76 HH=39-K:YH=95-V: COLOR INTCSQRCXMKXM 

+YH»YM)/6.5) 

86 PLOT X,Y 

96 PLOT 79-X,Y 

166 PLOT K.191-Y 

110 PLOT 79-H.191-Y 

126 NEXT Y 

136 NEXT X 

146 C=C+l:IF C>15 THEN C=6 

156 SETC0L0R 4,C,8 

166 FOR TIME=1 TO 566: NEXT TIME 

176 GOTO 148 



CHECKSUM DATA 

(See pgs. 7-10) 

16 DATA 682,253,174,886,296,293,938,61 
7,923, 418 , 747 , 766 , 767 , 154 , 494 , 8462 
168 DATA 433,716,1149 
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CONSOLE BUTTON 
SUBROUTINE 



16K Cassette or Disk 



by Jerry White 



The ATARI BASIC Reference Manual describes 
decimal location 53279 as "Console switches" (bit 
2= Option; bit 1= Select; bit 0= Start. POKE 
53279,0 before reading. 0= switch pressed). 

The would-be BASIC programmer has got to be a 
bit confused after reading the above. In BASIC, you 
normally don't think about bit settings, and the 
beginner has a long way to go before he or she will 
have to worry about such things. 

The point is that a BASIC PEEK (53279) will tell 
you which console buttons, if any, are pressed. You 
can see how pressing one or more buttons changes 
the value of that location with a one-line program. 
Enter line 10 below, then type RUN and RETURN. 
Watch the screen as you press the various console 
buttons, then press BREAK to abort. 

16 PRINT PEEK (53279) : GOTO 16 

Now for a somewhat more useful demonstration, 
enter the CONSOLE BUTTON SUBROUTINE. 
Note that although it is a subroutine, it has been set 
up so that it will run without any additional code. Of 
course, you could access it from your own program 
with a GOTO 30000. 

This routine provides the user with three options. 
It will allow you to RERUN THIS PROGRAM (the 
program currently in RAM), RETURN TO BASIC 
(which is a fancy way to say END), or RUN A 
MENU PROGRAM from diskette. Naturally, you 
could change these options to whatever your own 
program requires. The START button is used to 
execute the option that is currently displayed, using 
inverse video. Pressing the OPTION or SELECT 
buttons will change the previously highlighted op- 
tion back to normal video and highlight the next op- 
tion. When the desired option is highlighted, the 
START button is used to say "DO IT." 

Since this is a routine you will modify and include 
in many of your own programs, it should be LISTed 
onto cassette (LIST "O") or disk (LIST "D: 
BUTTON. LST," 30000, 30170). When you 
want to include it as part of your own program 
currently in RAM, ENTER "C": from cassette or 
ENTER "D: BUTTON. LST" from disk. □ 



REM CONSOLE BUTTON SUBROUTINE 

1 REM BY JERRY WHITE 6/5/82 

38880 GRAPHICS 8: POKE 752,1: POKE 718,4 

8:P0KE 82,2:P0KE 281,9 

38818 ? "«+4* Use the 03H&E3 or Bjfflj 
button to":? :? " highlight your choi 

ce below, then" 

38828 ? :? "> press the £EE333 button." 
:F0R ME=8 TO 8: POKE 53273, ME : NEXT ME:G 

OSUB 38188:SEL=11 

38838 POSITION SEL,SEL:? " 313!EMCEgC 

OiHIHI" 

38848 BUTTON^PEEK (53279) : IF BUTT0N=7 T 

HEN 30048 

38858 GOSUB 38148: IF CH0ICE=6 THEN 381 

18 

38868 SEL=SEL+2:IF SEL>15 THEN SEL-11: 

GOSUB 38188: GOTO 30038 

38878 IF SEL=1 3 THEN GOSUB 38 188: POSIT 

ION li,SEL:? " taMEinMBBSHB " : goto 38 

848 

36888 IF SEL=1 5 THEN GOSUB 381 86: POSIT 

ION ii.sel:? ' lIDEMSinDijEQEBEC '' : goto 3 

8848 

38898 GOTO 38848 

38188 POSITION 11,11:? "RERUN THIS PRO 

GRAM":? :? , "RETURN TO BASIC":? :? , "R 

UN MENU PROGRAM 1 ': RETURN 

38118 TRAP 38888: POKE 281,18: IF SEL=15 

THEN ? "If":? :? ."LOADING MENU": RUN " 
D: MENU": TRAP 48888 

38128 IF SEL=13 THEN GRAPHICS 8:? :? " 
BASIC":? "IS";:P0KE 752,8:TRAP 48888:E 
W> 

38138 TRAP 48888: RUN 
36146 GOSUB 38178 

38158 CH0ICE=BUTT0N : BUTT0N=PEEK (53279) 
:IF BUTT0NO7 THEN 38158 
38168 GOSUB 38178: RETURN 
38178 FOR ME=8 TO 8: POKE 53279, ME : NEXT 

HE: RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

8 DATA 874,882,472,699,678,842,127,197 
,568,185,623,285,215,413,935,7819 
38138 DATA 746,141,237,526,717,2367 



PAGE 16 



THE A.N.A.L.O.G. COMPENDIUM 



VOL. 1 



TRAPPING YOUR ATARI 



by Donald B. Wilcox 



It is often frustrating to be forced to restart a 
program because an inadvertent error caused the 
program to crash. ATARI BASIC provides a special 
word — TRAP — that often can be used to prevent a 
program from ending before intended. Many errors 
are subject to automatic correction or compensation 
through a little extra effort on the part of the pro- 
grammer. 

If you are not yet familiar with the TRAP state- 
ment, the following examples show how to use it to 
detect INPUT errors. These occur when the user of a 
program types invalid values into a numeric vari- 
able. 

18 INPUT H 
28 PRINT X 
38 GOTO 18 

In the above listing, typing a non-numeric re- 
sponse to the INPUT statement in line 10 (such as 
accidentally pressing return with no number en- 
tered) will result in an "ERROR-8 AT LINE 10" 
message. By adding a TRAP statement, this problem 
can be avoided completely. 

18 TRAP 1B:INPUT X 
28 PRINT X 
38 GOTO 18 

In the slightly modified example above, if an input 
error occurs, the TRAP statement will catch the 
error and go back to line 10 to try the INPUT again. 

After perusal of these five examples, you should 
be able to understand how to make your programs 
less vulnerable to errors that prematurely end your 
program. 

Listing 1 — If you mistakenly create a new 
file using a file name that already exists, you will 
destroy the already existing file. No error message 
will warn you of the impending disaster. Listing 
1 will prevent this. 

Listing 2 — If you try to OPEN a non- 
existent file, you will get an error message 170 and 



your program will crash. This can be prevented by 
using Listing 2. 

Listing 3 — If you try to input data from 
a disk file beyond the end-of-file, you will get 
an error message 136, and your program will termi- 
nate. You may not always know beforehand where 
the file data ends, so an automatic end-of-file trap 
can be programmed easily to prevent the error. List- 
ing 3 solves this problem. 

Listing 4 — You forgot to turn on your printer 
or interface unit and get error message #138. 
If you attempt to use the Continue command 
after you turn on the correct unit, your program will 
continue beginning at the line number that follows 
the line that caused the error. Often this can create 
erroneous results (not always detected), because the 
instructions on the line that caused the error may not 
have been executed correctly before the error. 

Listing 5 — You are reading in data with a 
READ statement and you do not want to use an 
end-of-data dummy value as a flag, nor do you want 
to count the entries to determine when all the data 
has been read. Listing 5 demonstrates a simple 
method to prevent error #6 (Out Of Data) from 
prematurely terminating your program. 

Finally, for those of you who are relatively new to 
ATARI BASIC, there are several locations (ad- 
dresses) that you may PEEK to find out which error 
occurred and which line caused the error. Location 
195 contains the error number. Locations 186 and 
187 contain the line number where the error 
occurred, low byte, high byte, respectively. To dis- 
play this information on your screen, use the fol- 
lowing statements: 



18 REM DISPLAY ERROR NUMBER 

28 REM AND LINE NUMBER OF ERROR 

38 PRINT PEEKC1553;" AT LINE ";PEEK(18 

63+PEEKC187J*256 
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Listing 1. 

189 ? "K":CLR :REH clear screen and va 
RIABLE5 

118 REM PREVENT ERASURE OF PROGRAM ALR 

EADY STORED ON DISK 

120 DIM ATRAPS (6), AS (124), NAMES (8), FIL 

ES(18) 

130 REM SET UP DISK SUFFIX 'D:' FOR FI 

LE NAME. IOCB IS FILE (DEVICE) NUMBER 

140 FILES="D : " : I0CB=2 : IN=4 : GNU=8 

150 REM GNU=8 IS THE OUTPUT MODE 

160 SET=168: CLOSE ttIOCB:IF ATRAPS="SPR 

UNG" THEN PRINT " FILE NAME DID NOT PR 

EVIOUSLY EXIST": GOTO 200 

170 TRAP SET: PRINT "ENTER FILE NAME" 

180 INPUT NAMES: FILES C3)=NAME$:ATRAP$= 

■■SPRUNG": OPEN ttlOCB, IN, 0, FILES 

190 PRINT FILES;" ALREADY EXISTS":? "U 
SE A DIFFERENT NAME": CLOSE ttIOCB:GOTO 
170 

208 OPEN ttlOCB .GNU, 0, FILES 

218 PRINT FILES;" OPENED SUCCESSFULLY" 

220 CLOSE ttlOCB 



160 PRINT "ENTER A FILE NAME": PRINT "D 

NOT INCLUDE THE 'D: ' PREFIX" 

178 INPUT NAMES: FILES C3)=NAMES: REM CON 

CATENATES PREFIX AND FILE NAME 

188 OPEN ttlOCB, GNU, 0, FILES 

190 REM WRITE DATA ONTO FILE. 

280 PRINT t«OCB;"FIRST" 

210 PRINT ttlOCB; "SECOND" 

220 PRINT ttIOCB;"LAST" 

238 CLOSE ttIOCB:REN IT IS GOOD PRACTIC 

E TO KEEP A FILE CLOSED WHEN NOT USED 

240 REM FAILURE TO PROPERLY CLOSE A FI 

LE CAN CAUSE IT TO BE LOST 

250 REM 

266 REM READY TO READ THE FILE 

270 OPEN ttlOCB, IN, 0, FILES 

288 SET=318:TRAP SET 

298 REM READ DATA FRDM FILE AND PRINT 

EACH VALUE AS IT IS READ 

388 INPUT ttlOCB, AS: PRINT AS:GOTO 290 

310 PRINT "FINISHED READING FILE SUCCE 

SSFULLY": CLOSE ttlOCB 

320 REM DELETE LINE 280 AND YOU MILL G 

ET AN ERROR MESSAGE 136 (END OF FILE) 



Listing 2. 



188 PRINT "K":CLR :REM CLEAR SCREEN AN 
D VARIABLES 

118 DIM ATRAPS (6), NAMES C5), FILES (8) 
128 REM SET UP DISK SUFFIX FOR FILE NA 
HE. IOCB IF THE FILE (DEVICE) NUMBER. 

IN=4 IS THE INPUT MODE 
138 FILE$="D:":I0CB=2:IN=4 
148 REN WRITE ERROR IF TRAP IS SPRUNG. 
IT IS GOOD PRACTICE TO CLOSE FILES T 
PREVENT ERROR t»129 IF YOU LOOP BACK 
150 REM TO A PREVIOUS PART OF YOUR PRO 
GRAM THAT OPENS A FILE. 
168 SET=168: CLOSE ttlOCB 

170 IF ATRAPS="SPRUNG" THEN ? "ERROR 1 
70, FILE ";FILES;" NON-EXISTANT" : FOR D 
=1 TO 1888: NEXT D:GOTO 100 
188 REM KEEPS MESSAGE ON SCREEN TENPOR 
ARILY BEFORE RETURNING TO BEGINNING OF 

PROGRAM 

198 TRAP SET: PRINT "TYPE IN FILE NAME" 
: PRINT "DO NOT INCLUDE "D!" PREFIX": IN 

200 FILES(3)=NANES:REN CONCATENATES FI 
LE NAME ONTO DEVICE PREFIX , D: 1 
210 ATRAPS="SPRUNG" 

228 REM IF THE 'OPEN 1 STATEMENT WORKS, 
HE HAVE A VALID FILE NAME ALREADY STO 
RED ON DISK READY FOR INPUT 
238 OPEN ttlOCB, IN, 0, FILES 
248 PRINT "FILE ";FILES;" OPENED SUCCE 
SSFULLY" 
250 CLOSE ttlOCB 



Listing 4. 



108 PRINT "«":CLR :REM CLEAR SCREEN AN 

D VARIABLES 

118 REM CATCH DEVICE TIMEOUT ERROR « 1 

38 

128 REM YOU FORGOT TO TURN ON AN INPUT 

OR OUTPUT DEVICE 
130 DIM ATRAPS (6) 

140 SET=140:IF ATRAPS="CAUGHT" THEN PR 
INT "TURN ON I/O DEVICE" 
150 TRAP SET:ATRAPS="CAUGHT" 
168 LPRINT "PROGRAM RAN SUCCESSFULLY" 
170 REN RUN THIS PROGRAM WITH PRINTER 
TURNED ON AND OFF 

188 REM CHANGE LINE 160 TO USE DISK, I 
NTERFACE, OR SOME OTHET I/O DEVICE 



Listing 5. 



188 PRINT "K":CLR :REN CLEAR SCREEN AN 

D VARIABLES 

118 REH READ DATA AND TRAP 8UT-0F-DATA 

ERROR 1*6 
120 SET=140:TRAP SET: REH DELETE THIS L 
INE AND ERROR 86 WILL OCCUR 
130 READ N: PRINT N:GOTO 130 
140 PRINT "FINISHED READING DATA" 
150 DATA 28,4,156,83,12 



Listing 3. 



188 PRINT "«": CLR :REH CLEAR SCREEN AN 

D VARIABLES 

110 REH CATCH END-OF-FILE ERROR 

120 DIH ATRAPS (6), AS (124), NAMES (8), FIL 

138 FILES="D:":I0CB=2:IN=4:GHU=8 

148 REH 'D: 1 IS FILE NAME PREFIX. IN= 

4 IS INPUT MODE. GNU=8 IS OUTPUT MODE 

IOCB IS DEVICE (FILE) NUMBER 
150 REM FIRST HE MUST CREATE A FILE AN 
D PUT SOME DATA IN IT BEFORE TRYING TO 
READ THE DATA. 
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BASSNOTES IN BASIC 



16K Cassette or Disk 



by Jerry White 



Those of you who have written music using 
ATARI BASIC may have noticed that even the 
lowest note available in distortion level 10 is not 
really a low bass note. 

The secret to getting a deep, rich bass note is to use 
distortion level 12. The BASIC program called Bass- 
note will display the notes and pitch numbers for 
two octaves of low bass notes. 

It will also play the deep bass introduction to the 
theme from Barney Miller. While doing this, the 
sound commands used will be displayed on your 
screen. □ 



18 REM BAS5H0TE TUTORIAL BY JERRY MHIT 

E 

28 ? 

3© GOSUB 298:G0SUB 198:G0T0 188 

46 SOUND 8,8,8,8:READ PITCH '.D-12 I U = 14 : 

SETCOLOR 2,PITCH,8:S8UND 8,PITCH,D,U 

58 POSITION 18,28:? " SOUND 8,";PITCH 

; , V';D; , V';U; RETURN 

68 FOR H0LD=1 TO 288: NEXT HOLD: SOUND 8 

,8,8,8: PITCH=8 : D=8 : U=8 : GOSUB 58 : RETURN 

78 FOR H0LD=1 TO 56; NEXT HOLD: RETURN 

88 F8R H8LD=1 TO 25: NEXT HOLD: SOUND 8, 

8 6 6" RETURN 

98 DATA 182,98,85,82,75,72,67,67,68,57 

,68,67,75,67,51,68,75,98 

188 FOR TIME=1 TO 2:G0SUB 48:G0SUB 68: 

GOSUB 68 

118 GOSUB 48:G0SUB 78:G0SU6 48:G0SUB 7 

8 

128 GOSUB 48:G65UB 66:G0SUB 68 

138 GOSUB 48: GOSUB 78: GOSUB 40: GOSUB 7 



148 GOSUB 48:G05UB 68:G0SUB 68 

158 FOR QUARTERN0TE=1 TO 8: GOSUB 46 : GO 

SUB 78 .'NEXT QUARTERNOTE 

168 GOSUB 48: GOSUB 88: GOSUB 48: GOSUB 8 

8 

178 GOSUB 48:G0SUB 86:REST8RE :NEXT TI 

ME 

188 RESTORE : GOSUB 48 : GOSUB 66: POKE 75 

2,8:END 

196 ? :? ," PITCH = NOTE": GOSUB 318 

288 ? :? "25=E","27=Dtt","28=D ","ZH=Ctt 



218 

228 

238 

246 

258 

266 

278 

AND:" 

288 ■> 



"31=C ","33=B ","36=A»","37=A 
"48=G«", "42=G ", "45=Ftt", "48=F 
"51-E ", ,, 55=Dtt",' , 57 = D ","66=C»" 
"63 = C ","67=B ","72=A»","75=A 
"82=Gtt","85=G ","98 = F»","97=F 
"182=E": GOSUB 316 
:? " THE ATARI BASIC SOUND COMM 

"SOUND VOICE, PITCH, DISTORTION 



298 GRAPHICS 8:P0KE 752,1:G0SUB 318:? 

THE THEME FROM BARNEY MILLER" 
388 ? :? "BASSNOTES USING SOUND DISTOR 
TION 12":G0SUB 318:RETURN 
318 FOR CTRLR=2 TO 36:? "-";:NEXT CTRL 
R: RETURN 

326 REM XKXXMXXXXXXXXXMXXXXXMXXXMXXXX 

338 REM # D=DIST0RTI0N U=U0LUME * 

348 REM * GOSUB 58 F8R WHOLE NOTE # 

358 REM * GOSUB 78 FOR QUARTER NOTE * 

368 REM * GOSUB 88 FOR EIGHTH NOTE * 

378 REM * G8SUB 788 TO DRAM A LINE * 

388 REM KXXXXXXXXXKXXXMXKMMXXXMMMXXMX 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 785,653,272,597,653,822,191,72 

1,617,79,221,55,227,61,557,6431 

168 DATA 242,874,327,262,121,988,46,41 

,32,89,691,764,69,86,692,5318 

318 DATA 45,788,982,788,31,927,785,886 

,5864 



, VOLUME": GOSUB 318 : RETURN 
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AUDCTL DEMO 



16 K Cassette or Disk 



by Jerry White 



AUDCTL is an abbreviation for AUDIO 
CONTROL, and a label given to decimal location 
53768. For those interested in reading up on the 
functions of the various sound registers, I strongly 
recommend that you read the SOUND chapter in 
De Re ATARI about three times, and that you try 
the little demonstration routines supplied. 

For those who don't really care to know why 
things happen, but like to take advantage of the 
amazing range of sound effects that are available 
from BASIC, I submit the following little demo 
program. In a nutshell, POKE commands into deci- 
mal locations 53760 through 53767 are used to create 
a full C major chord. To further enhance the 
effect of this program, we slide up to the higher C 
note in line 180. 

At the prompt, you may enter a value which will 
be POKEd into decimal location 53768. Start by 
entering zero, so you can hear the effect with no 
distortion before we begin experimenting. By enter- 
ing other values from 1 to 255, you will notice some 
strange sounds coming from your TV speaker. 

There is probably no better way to learn how to 
create sound effects than by trial and error. Hope- 
fully, this little demonstration will provide some 
food for thought. □ 



138 
20 
148 
KEY! 
158 
5:? 
168 
178 
188 
198 
288 
218 



IF KEY<>255 Oft PEEK C53279J <>7 THEN 

GOTO 120: REM HHATCHA WANT? PRESSA 

GRAPHICS 8:5ETC0L0R 2,9,8:P0KE 82, 
:REM CLEAR SCREEN/LEFT MARGIN=5 
? :? "This program was designed" 
? :? "to demonstrate the effects" 
? :? "«ade possible by altering" 
? :? "the Audio Control Register" 
? :? "at decimal location 53768" 
? :? "CSd288) .":RETURN 



CHECKSUM DATA 

(See pgs. 7-10) 

18 DATA 414,918,846,958,678,674,194,76 

3,431,47,269,213,84,763,717,7953 

168 DATA 368,641,576,412,839,359,3187 



18 GOSUB 158: REN AUDCTL DEMO BY JERRY 

WHITE 6/2/82 

28 FOR 0FF=8 TO 3:S0UND OFF, 0, 8, 8 : NEXT 

OFFiREM TURN OFF ALL SOUNDS 
38 ? :? "ENTER A NU MBER B ETWEEN AND" 
:? "255 THEN PRESS l:mn:i:i ": 
48 POKE 764,255:TRAP 38:INPUT NUMBER 
58 NUN8ER=INT CNUMBER) :IF NUMBER<8 OR N 
UMBER>255 THEN 38 

68 POKE 53768, 243:P0KE 53762, 81 : POKE 5 
3764,96:P0KE 53766, 121 : REM C MAJOR 
78 FOR X=53761 TO 53767 STEP 2: POKE X, 
162: NEXT X 

88 REM DI5T0RTI0N=18 V0LUME=2 C18*16+2 
= 1621 

98 POKE 53768, NUMBER: REM AUDCTL 
188 FOR X=243 TO 68 STEP ~I:P0KE 53768 
,X:NEXT X:REM SLIDE SOUND 
118 ? :? "PRESS 3jfi T8 END":? "PRESS A 
N8THER KEY TO CONTINUE" : POKE 764,255 
128 KEY=PEEKC764J :IF KEY=28 THEN POKE 
82,2:? :? "BASIC":? "IS";:END 
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VARIABLE LISTER 



16K Cassette or Disk 



by Tony Messina 



Have you ever written a program and then tried to 
go back and document all of the variables that were 
used? If you're one of the elite 10% who are orga- 
nized, you probably wrote down all of your variables 
and their meanings as you wrote the program. If 
you're like the other 90% of us, who write a program 
and then spend several agonizing hours documenting 
it, then help has arrived. 

The following utility was written to help me keep 
track of my variables. It doesn't tell me what I used 
them for, but it does tell me what I used. This utility 
is just the start of another utility I'm working on (a 
cross reference program). You can run out and spend 
anywhere from $9.00 to $45.00 for any of a multi- 
tude of utilities, but I don't have much money — and 
writing the things myself has taught me more about 
the inner workings of the ATARI than any listing 
could. Let me explain how your ATARI stores vari- 
able names. It will help you to understand how and 
why the program works. 

Behind the scenes. 

Within the heart of your ATARI lurks the Vari- 
able Name Table. This table contains all of the 
variables used (and, sometimes, not used) by a pro- 
gram. How do they get there? Good question. When 
you type in <A=10> for example, the ATARI 
BASIC cartridge takes the "A" and puts it in the first 
available slot of the Variable Name Table. It also 
stores the value of our "A" into the Variable Value 
Table. Sounds simple, so far. . . now enters the curve. 
IN ATARI BASIC, variable names can be up to 128 
characters long. How does the interpreter know 
where one variable name ends and the next one 
begins? What about string variables and dimen- 
sioned variables? 

Here's the scoop. The very last character of each 
variable name is stored in the table as an inverse char- 
acter. Our "A" character would actually be stored in 
the name table as an inverse A, since the beginning 



and ending character for the variable is A. If the vari- 
able name was "TEST," then "TES" would be 
stored as normal characters and the last "T" would 
be stored as an inverse "T." TEST$, a string variable, 
would be stored as "TEST" (normal) and "$" (in- 
verse). If a variable has dimensions [e.g., DIM A 
(26)], then the variable is stored as "A" (normal) 
and "(" (inverse). Knowing where the Variable 
Name Table starts, we should be able to go in and 
pick out all the variables in any given program. 

How do we know where to stop? The end of the 
table is denoted by a blank byte following the last 
character of the last variable name. For the purpose 
of our utility, however, we want to stop picking ofi 
variables when we encounter the first variable of the 
utility program. Armed with this information, let's 
try our first experiment. 

Listing 1. 

5 REM TYPE A CONTROL COMMA BETWEEN THE 

QUOTES IN LINE 70 TO PRODUCE A HEART 
18 ? CHR5C125) :REM #CLEAR SCREEN* 
28 ? "ASCII", "CHAR", "ADDRESS" :REM * HE 
ADINGS * 

38 A=18:TEST1=18:DIM BSCl) , YE5C5,5J : RE 
M * SAMPLE VARIABLES * 

48 START=PEEK(138J+PEEK1131J*256:REM * 
GET DECIMAL START ADDRESS OF UAR NAME 
TABLE * 

58 ? " ";PEEK(STARTJ," " ;CHR$ (PEEK (STA 
RT3J," ";START;REM * PRINT ASCII, LETT 
ER AND ADDRESS * 

68 START=START+1:REM * GET NEXT ONE * 
78 IF PEEKCSTART)=ASCC"¥"J THEN END :R 
EM * IF BLANK THEN END * 

88 GOTO 56:REM * GO PRINT NEXT CHARACT 
ER * 



CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 331, 138,962,568, 625, ISO, 352, 787 
,538,4463 
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As you can see, the variables for the program itself 
were printed to your screen. This was just a sample 
for the non-believers out there. The variables pre- 
sented are representative of all types used by the 
ATARI: regular, string and dimensioned. Another 
thing you will notice is that the variables follow the 
order in which they were typed. Line 30 is the first 
place variables were typed in. If we look at the output 
of our program, we see that the variables follow the 
same order as Line 30: A,TEST1,B$,YES and START. 
The address of each letter is also printed in the last 
column. This will be helpful when we conduct our 
other experiments, so type in this program. 

I hope this little demo illustrated the points I made 
previously. Here is an explanation of how the utility 
operates. 

The program. 
Listing 2 is the utility program. Program flow is as 
follows: 

32500 clears the deck and initializes the util- 
ity variables. 32502 clears the screen and out- 
puts a message to the printer. 32504 takes the 
contents of the current address and stores it in 
TEMP. A check is then made to see if TEMP is 
an inverse character (i.e., >=128), or if it is a 
blank. If one of the conditions is true, the 
program goes to the subroutine at Line 32514 
to find out what the character is. If neither con- 
dition is true, we drop through and store the 
value from TEMP, and store it into the appro- 
priate location in VAR$. We are building our 
variable name in VAR$ for output to the prin- 
ter. A check is made of the error flag ERRER. If 
set, an asterisk is appended to our variable name 
in VAR$. If clear, then SKIP is checked. If it is 
set ("set" meaning it is equal to 1), then it's time 
to print our variable name. If clear ("clear" 
meaning it's equal to zero), we increment the 
current address CURADD, the character count 
CHARCNT and then go back for the next line. 

32514-32522 are the subroutine lines used 
to determine the type of variable. We get here if 
the value in TEMP was an inverse character or a 
blank. If the content of TEMP is an ASCII 
blank, then the program goes to Line 32512, 
prints out some information and stops. If 
TEMP contains an inverse "$," then we change 
it to a normal "$" (TEMP- 128) and GOTO 
32522. If TEMP contains an inverse "(," then it 
is changed to a normal "(," and we GOTO 
32522. If all of the above fail, then we assume an 
ASCII number or letter. It is changed to a 
normal character, and a check is made to see if 
the new number falls between 48 and 90. If you 
look in Appendix C of the ATARI manual, you 
see that ASCII 48-90 contains the numbers, 
some other characters and then the letters A-Z. 
If the value in TEMP does not fall between any 



of these values, we have an error, and the error 
flag is set. If everything is okay, line 32522 
increments the number of variables VACNT, 
sets the skip flag SKIP to 1 and returns. 

32524 appends an asterisk to our variable if 
an error occurred, sets ERRER back to and 
returns. 

32526-32528 check what is in the string 
VAR$. If the actual name VAR$ is there, then 
the program ends. If not, then the variable name 
and its address in RAM is printed. The charac- 
ter count CHARCNT is cleared (set to zero), 
SKIP is cleared, VAR$ is cleared, and we return 
to build the next variable name. 

32512 prints the start and end address of the 
name table. It also prints out the number of 
variables in the target program. 

How to use it. 

Type the program in exactly as shown in the list- 
ing. When you've finished, check everything and 
then save it using the LIST"D:VARLST" for disk or 
LIST"C:" for cassette commands. The reason we use 
LIST rather than CSAVE or SAVE"D:filename" is 
so that we can merge the utility with your target pro- 
grams without disturbing anything. Once the pro- 
gram is saved, you can load in any BASIC target 
program. By target program, I don't mean a program 
that has target in it; I mean any program you want to 
obtain a variable listing from, utilizing the utility. 
Once the target program is loaded, use the following 
commands to merge the utility. If you have a cassette, 
cue up the utility and type ENTER"C:" and hit RE- 
TURN. After the beep, press the play button, hit 
RETURN again and the program will load. For disk 
users, type in ENTER "D:VARLST". The program 
will then load from disk. Once the utility is loaded, 
type in (using direct mode) GOTO 32500 and the 
utility will do its thins. 

This utility is set up for output to a printer. If you 
don't have one, simply replace all LPRINTs with 
PRINTs. Be prepared to hit CONTROL 1 to stop the 
screen listing, so you can copy the variable names. 
Hit CONTROL 1 again to resume output. 

You are probably wondering why I have the 
address printed out. If you don't want it printed, 
REPLACE Line 32528 with the following: 

32528 LPRINT UfiRS : CHARCNT=8 : 5KIP=0 : VAR 
S=" M :RETURN 

This will prevent the address from being printed and 

leave you with a clean piece of paper to document 

your program. There is a method to my madness in 

printing the address. 

The method. 

Consider this ... if we know the address locations 
of our variable names, it would follow that, if we 
POKE different characters into the table, we could 
change our variable names. This is not only true, but 
offers other potential benefits and (if the reader is 
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not careful) problems. Bewarell The following ex- 
periments should be tried after reading the following 
paragraph. 

The interpreter does not care about variable 
names, other than when they are initially defined. 
After that, it doesn't care. Why? Well, once you 
define a variable, it is assigned a number from 128- 
255. The first variable is assigned 128, the second 
variable is assigned 129, etc.. . .up to 255. In the 
tokenized version of your program, these variable 
number assignments become important, not the 
names. When you list your program, the interpreter 
scans the tokenized form of your program in mem- 
ory, and matches all the numbers with KEYWORDS, 
such as GOTO, REM, COLOR, etc. When he hits a 
variable number — 128, for example — he says, 
"Oh. . .This is a variable; its number is 128, but, to 
me, that's variable number 1. Let me go into the 
Variable Name Table and get the name. Since it's 
number 1, it is the first name in the table." Once the 
name is retrieved, it is put up on the display. All of 
this happens in mere microseconds, but that's what 
your interpreter does. If we happen to change the 
names in the table, the interpreter will blindly go in 
and grab whatever is or isn't there. He grabs the vari- 
able name based on the number, not the name. Re- 
member the inverse character at the end of each vari- 
able name? Joe Interpreter uses this as a signal to tell 
him when he has gotten the whole thing. Enough 
theory, next experiment. 

Experiment #2. 

Let's try changing some names. If you haven't 
done so, type in the short example program at the 
beginning of this article. If you did type it, then load 
it. RUN the program and follow along with me. On 
the screen you should see the variable "A" in in- 
verse. Let's change it to "Z". In direct mode, type the 
following: 

POKE ADDRESS, ASC t"Z"3 

Make sure the "Z" is an inverse "Z." The address will 
vary with the amount RAM you have and the con- 
figuration, so use the address that is on the screen 
(e.g., the address given for variable "A"). Hit RE- 
TURN and, when READY appears, LIST the pro- 
gram. The former statement "A=10" will magically 
be replaced by "Z=10"! 

Let's try once more. Let's change "TEST1" to 
"BLAH1". First re-RUN the program, then, in 
direct mode, type the following: 

POKE ADDRESS. ASC CO"! : POKE ADDRESS+I,A 
SCC"L"J :POKE ADDRES5+2, ASC C M A"3 : POKE A 
DDRESS + JjASCC'H-J 

("A"):POKE ADDRESS+3,ASC("H") 

Again, we have the starting address of "TEST1". 

Since each letter occupies one byte, then "T" begins 

at the address listed in your output; "E" is located at 

the address+1, etc. Since the 1 is already there and in 

inverse, we don't have to use inverse letters in our 

POKE statements above. Use the regular old every- 



day non-inverse letters between the quotes. Hit RE- 
TURN and LIST the program. If you did everything 
right, "TEST1" will be replaced by "BLAH1". Of 
course, we only replaced variable names with those 
that had the same length. For experimenting, use the 
same length name because you can really make a 
mess out of things. If you are adventurous, try any- 
thing!! Just remember that the variable names must 
end in an inverse character. 

Experiment #3. 

RUN the program again, then, in direct mode, 
type the following: 

FOR Z=FIRSTADDR TO LASTADDR : POKE Z,i55 
:HEKT Z 

Substitute the appropriate addresses on the screen 
for FIRSTADDR and LASTADDR. When READY 
appears, LIST the program. Surprise! All you see now 
is KEYWORDS. Not a variable in sight! Run the 
program — yes, just type RUN. Surprise II. It works 
just like normal. Except where the variables once 
were is now filled with empty space. Whahappened?? 
The 155 POKEd into the name table is a non- 
printing character. The interpreter picked up the 
name and even printed it on the screen. . .we just 
couldn't see it. You could do this to that secret pro- 
gram of yours and let your friend borrow it. When 
he LISTs it to learn all of your secrets. . .hoy, will he 
get a surprise. Try it! I have, and what a ruckus it 
caused. Be sure to save a copy of the original for 
yourself, or you may be the one who is surprised! 

The last experiment. 

For our last trick, try this. First load the program, 
or, if you didn't save it, type it in again (SAVE it this 
time). Now RUN it. In direct mode, type the follow- 
ing: 

FOR A = FIR5TADDR TO LASTADDR : POKE A,ASC 
C"¥"J :NEHT A 

Again use the addresses that are on the screen. When 
READY appears, LIST the program. Check out all of 
the garbageW I'll let you figure it out for yourself. 
(Hint — The interpreter searches for inverse charac- 
ters.) 

Final notes. 

VARLST will interfere if your target program has 
the same line numbers as the utility. I started at 
32500 as all of my program line numbers fall way 
below that figure. If necessary, change the line num- 
bers higher or lower, but remember to change all of 
the GOSUBs and GOTOs. Also, if your target has 
more than 119 variables in it, VARLST will not load. 
I've never seen a program with that many variables, 
but it is possible. If you have any variable names 
longer than 30 characters, VARLST will not work.* 
Have fun experimenting! □ 



'Dimension VAR$ larger in this case. 
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Listing 2. 

32580 CLR :DIM UAR$ (38) : TABLESTART=PEE 
KC138J+PEEK {1313*256 : CURADD = TABLE5TART 
: CHARCNT=1 : UACNT=8 : ERRER = 8 : INU=128 
32582 5KIP=8:? "*":LPRINT "THE FOLLOMI 
HG UARIABLES ORE IN THIS PROGRAM" : FOR 
X— 1 TO 58: NEXT X 

32504 TEMP=PEEK(CURADD) : IF TEMP>=INV 
R TEMPzASCC"""! THEN G051IB 32514 
32586 gAR$(CHARCNT,CHARCNT)=CHRS<TEMPJ 
:IF ERRER THEN G05UB 32524 
32588 IF SKIP THEN GOSUB 32526 
32518 CURADD=CURADD+i:CHARCNT=CHARCNT+ 
HGOTO 32584 

32512 LPRINT ILPRINT "TABLESTART= "JlTA 
BLESTARTlLPRINT "TABLE END = ";CURADD- 
4:LPRINT "tt OF UARIABLES= ";U0CNT-1 

32513 END 

32514 IF TEMP^ASCC'IT'J THEN POP :GOTO 
32512 

32516 IF TEMP=ASCC"H") THEN TEMP^TEMP- 

128JG0T0 32522 

32518 IF TEMP=ASCt"D"5 THEN TEMP=TEMP~ 

128:G0T0 32522 

32528 TEMP=TEMP-128:IF TEMP<48 OR TEMP 

>98 THEN ERRERrl 

32522 UACNT=UACNT+1:5KIP=1: RETURN 

32524 UAR$£CHARCNT+1,CHARCNT+13="E":ER 

RER— 8: RETURN 

32526IF UARS="gAR5" THEN POP :G0T0 32 

512 

32528 LPRINT WARS,,," ADDRESS^ ":CURA 

DD-CHARCNT+1:CHARCNT=8:SKIP=8:UARS="": 

RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

32508 DATA 256,398,285,624,952,663,823 
,557,377,141,159,129,984,932,148,7348 
32528 DATA 715,715 







Circle Demo 


18 XC=16£ 


l:YC=88 


28 RD=60: 


INC=18:YS=8.75 


38 GRAPHICS 8:C0L0R 1 


48 GOSUB 


1888: END 


lUUif 


Ken 




1818 
1828 


REM 

REM 


CIRCLE DRAWER ROUTINE 




1830 


REM 




1846 


REM 


XC: x-coordinate of center 


1858 


REM 


YC: y coordinate of center 


1868 


REM 


RD: circle radius 


1878 


REM 


INC: drawing increment 1-368 


1888 


REM 


YS: y-scaling factor 


1898 


REM 




1188 


DEG 


:PLOT XC,YC+RD*Y5 


1118 


FOR 


CIRCLE=8 TO 368 STEP INC 


1128 


XCOORD=XC+SIN(CIRCLE)*RD 


1130 


YCOORD=YC+COS (CIRCLEJ*RD*VS 


1148 


DRAMTO XCOORD,YCOORD 


1158 


NEX1 


CIRCLE: RETURN 

CHECKSUM DATA 
(See pgs. 7-10) 


18 DATA 118,981,32,473,165,248,167,278 


,188, 


184, 


463,8,48,284,645,4258 


1118 


DAT* 


469,958,422,868,442,3159 



PAGE 24 



THE A.N.A.L.O.G. COMPENDIA 



VOL. 1 



BUNCRUSH 



16K Cassette or Disk 



by Tony Messina 



In our last episode, we left our hero (Bruno Bit- 
mangier) tearing out his hair, looking for his lost 
energy variable E amidst all the garbage on the TV 
screen. Meanwhile, Bruno Jr. screams, "I wanna 
play Missile Command!" and Mrs. Bitmangler 
shouts, "Both of you get in here . . . DINNER is get- 
ting COLD!" If only our hero had BUNCRUSH, his 
problem would be solved. What's a BUNCRUSH? 
It's the BASIC Unembellished No-Cost Cross Ref- 
erence Utility and Software Helper. If you want to 
get it up and running, type in Listing 2 and skip to 
the "How to use BUNCRUSH" section. Those of 
you who want to learn a little more about the ATARI 
BASIC token structure and how BUNCRUSH was 
developed should read on. 

Design considerations. 

Several major considerations were involved in 
designing BUNCRUSH. The list I used was as fol- 
lows. 

1.) Build upon the concepts presented in 
Utility #1 — Variable Lister (see page 20) 
2.) Allow use with both Cassette and Disk 
systems. 

3.) Allow screen or printer output. 
4.) Output should include the variable name, 
its associated line reference numbers and be 
neat in appearance. 

5.) Make the output fast and simple. 
6.) Provide flexibility for user modifications. 
With these considerations in mind, I sat down and 
wrote BUNCRUSH. It's been rewritten three or four 
times. Each time it was improved and streamlined. 
Listing 2 is the final version. 

With all the above ground rules set, I'll dive into 
the background material, namely ATARI token 
structure. 

BASIC'S background. 
As was explained in the last utility article, vari- 
ables are assigned numbers in our token program. 
Names do not matter, unless we want to print out a 
program listing. It follows that, if we could locate the 
start of our token program, scan each line for a 
variable # (128-255), save the line numbers that 
contain the variables we are looking for and print out 
this information, we would be all set. Of course, we 



would have to do this for every variable number, and 
it could take some time. We'll worry about the time 
later. The first question is: where does the tokenized 
version of our BASIC program begin? Glad you 
asked! The start location can be found at address 
135,137 (Decimal) or $88,89 (Hex). This is not 
where the program begins, but rather the pointer to 
where it begins. To obtain the decimal location 
number, we would execute the following BASIC 
statement. 

TOKEN=PEEK C136J +PEEK C137 )*256 

The variable token would be set equal to the start 
address of our token program. Now what? Well, it's 
time to scan the program from start to finish for our 
first variable. Before we do this, I'll digress into my 
"Here's how a tokenized BASIC line is set up" tap 
dance routine. 

I saw a hand in the back of the room. . . "What's 
this 'tokenized program' you keep referring to?" I'm 
sorry ... let me explain. When you type in a program 
line in BASIC and hit RETURN, several things hap- 
pen. First, the BASIC cartridge takes each item you 
typed in and converts it into tokens for its own use. 
Each command (GOTO, TRAR etc.), operator ( + , 
-, =, etc.) and function (STR$, SIN, COS, etc.) has a 
special token associated with it. The interpreter 
scans, tokenizes, places the token in the program area 
and continues till it hits your carriage return. If 
everything is correct with respect to syntax, the 
cursor appears on the left side of the screen, and you 
can continue on with the next line. If you make a mis- 
take, the interpreter stops scanning and prints the 
line out with an error message and an inverse cursor 
to show you where it stopped. 

After you correct your mistake, the interpreter 
goes through the line again. This process continues 
until you have entered your entire program. 

The tokenizing process is used to save space by 
converting the ASCII input to tokens. For example, 
the Restore command would normally take 7 bytes 
(one per letter). Through tokenization, it only takes 
1 byte containing the number 35 Decimal. Tokens 
serve another important purpose. At Run -Time, the 
BASIC interpreter fetches a token. This token is 
actually an index for a jump table. This jump table 
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points to the various routines within the system. 
When a token has been executed, BASIC returns, 
fetches the next token and continues the process of 
execution. 

With that simple explanation out of the way, let's 
look at the structure of a tokenized line of BASIC. 
Each line varies depending on its length and the 
number of multiple statements in it. Some items 
don't get tokenized. ASCII strings are an example. In 
a statement such as PRINT "This is a test," the 
PRINT statement will get tokenized. When the in- 
terpreter encounters the quotes, it replaces them 
with a 15-token (string follows token), saves one 
space, then puts each letter of the string in one byte 
until it hits the last quote. The byte after 15 then gets 
updated to the number of ASCII characters in the 
string. Similarly, numbers are put in BCD represen- 
tation. BCD numbers take up 6 bytes for the number 
itself. For example, with PEEK 130, the PEEK would 
get a token of 70, and the "(" a token of 58. Then a 
14 would be placed next. Fourteen is the "BCD 
number follows token." After the 14 would be the 6 
byte BCD representation of 130 (65 1 48 0). 
Don't worry, no need to memorize BCD numbers. 
Just remember how they appear. Anyway, our 
example of a simple tokenized BASIC line follows. 

BASIC line: 

20 PRINT PEEK(Z) 

Tokenized form (in decimal): 

Bytes (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 
20 10 10 32 70 58 128 44 22 

Bytes 1 and 2 — Line number LSB MSB FO 
RMAT 

Byte 3 — Numerical offset to the next line 
number in bytes 

Byte 4 — Numerical offset to next statement 
number of bytes. This is used to keep track of 
where the interpreter is when a line has multi- 
ple statements; i.e., 10 GOTO 20:GOSUB 200: 
PRINT X:GOTO 5 — The remainder of the 
bytes consists of the tokenized form of our 
BASIC line. 

Byte 5 is the token of PRINT. 
Byte 5 is the PEEK token. 
Byte 7 is the left parenthesis token ("("). 
Byte 8 is the variable number assigned to Z. 
Byte 9 is the right parenthesis token (")"). 
Byte 10 is the end of line token. 
To help you get a feel for these concepts, I've in- 
cluded the ATARI BASIC TOKEN TABLE 1. I've 
also included a short program that prints out the 
tokenized version of line numbers within a program. 
This is Listing 1. I call it TOKLOOK. Type it in and 
save it using the LIST command. Now load in one of 
your BASIC programs. When "ready" appears, load 
the TOKLOOK program, using the ENTER com- 
mand. When it's in, type GOTO 32500. Answer the 
prompt with a line number. The tokenized version of 



the line will appear, as well as the BASIC form. Use 
Table 1 and compare the token version with the 
table. This little utility helped me a great deal in un- 
derstanding how things get tokenized. 

Back to BUNCRUSH. 

Well, with that digression out of the way, let's 
look at Listing 2, the actual BUNCRUSH utility. 
You may notice some similarity to the Variable 
Lister program. I built BUNCRUSH around it. 
Variable names were shortened and some unneces- 
sary items removed. There are 2 parts to BUN- 
CRUSH. I used BASIC to handle the string mani- 
pulation tasks of finding the variable names and 
formatting the names/line numbers for output. The 
ML routine works hand in hand with BASIC. All the 
ML routing does is search the token program for our 
variable number (we start at number 128). When it 
finds it, it returns the line number to BASIC. BASIC 
then takes the number and puts it in the string 
VAR$. If VAR$ exceeds the print length of 80, the 
program prints out that line. BASIC then jumps 
back into the ML routine, and the search goes on 
until all variables and line references are output. 

Program flow. 

Line 32500 — Clears all variables and sets 
up the program parameters. 

Line 32502 — Outputs heading credit. (Go 
ahead — put your own name in there if you 
want.) 

Line 32503 — Skips some lines, prints out 
column headings and reads in the ML routine 
data. 

Line 32504 — Gets our variable name, one 
character at a time. Remember from Variable 
Lister, an inverse character marks the end of a 
variable name. If TP>=128 then we subtract 
128 and set a flag at 1690 for use later on. I call it 
the Variable Name Complete Flag. If TP is not 
>=128 we move on. 

Line 32506 — Puts the variable name in 
VAR$. CC is the Character Count. 

Line 32508 — Checks our Variable Name 
Complete Flag. If it set (= 1 ) we GOSUB 32526. 
If not, we fall through. 

Line 32510 — Updates the current address 
(CA), the character count (CC) and goes back 
to 32504 to get the next character of the vari- 
able name. 

Line 32512 — Skips a few lines and prints 
out the variable count at the end of the program. 

Line 32513 — Ends the program. 

Line 32526 — Is a subroutine; we jump here 
from Line 32508. First we check if our variable 
name is VAR$. If yes, pop the stack and end the 
program. If not, we drop through. 

Line 32527 — Pads VAR$ with blanks. 
Variable names can be up to 15 characters long. 
If you have variable names longer than 15, just 
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change the 15 to whatever you want. I haven't 
had any problems yet. Fifteen is a safe num- 
ber. 

Line 32530 — Jumps to our ML routine. 
The source listing is included as Listing 3. The 
ML routine searches every line of the token 
program, looking for our variable number. It 
returns to BASIC under two conditions. 

Condition 1: It finds our variable num- 
ber in a line. 

Condition 2: It encounters Line 32500, 

which is the start of the utility. 
Some simplifications were necessary in writing the 
search program. 

1.) If you find our variable, stop searching 
that line and return to BASIC with the line 
number. There is no need to search any further, 
even if the variable appears 10 times in the line. 
All we care about is the line number, not how 
many times the variable appears therein. 

2.) If we encounter a DATA or REM state- 
ment, skip it. There are no variables in DATA or 
REM statements. 

3.) If we pick up a "BCD Number Follows" 
token (14), skip past it. Searching it is not 
healthy — we'll get an erroneous cross-reference 
in some instances. 

4.) If we encounter a "String Follows" token 
( 15), skip past the string, as any inverse charac- 
ters will trigger the "I found our variable" 
signal. Remember, we look for variable 
numbers from 128-255. 

5.) If we hit a "Statement End" token (15), 
skip past the next byte. It contains an offset 
number which can cause errors. 
I won't go into too much detail on the ML routine. 
It's not even very elegant, as a matter of fact. Things 
can be done to speed it up, but — as you'll see — it's 
plenty fast enough!!! Anyway, we return to BASIC. 

Line 32532 — Checks the con location at 
1680 decimal. If set, we are continuing — GO 
process the line number. If not, we are done 
with this variable, so drop through. 

Line 32534 — Erases the comma at the end 
of the last line number. If X <= 16 then no line 
numbers were generated for this variable and 
therefore there are no references for it. 

Line 32535 — Prints out VAR$, zeros out 
the character count, clears out VAR$ and 
NUM$ and returns to 32510 to get the next 
variable flag. 

Line 32536 — Gets the current line number 
(CL) from locations 1683 and 1684 — that's 
where the ML routine put them. 

Line 32538 — Converts the line number to 
a string. It checks to see if the length of this line 
number, when added to the current length of 
VAR$, will be greater than 80. If it would, 



VAR$ gets printed first, then is padded with 15 
blanks. 

Line 32540 — The line number get added to 
VAR$ and a (comma space) is appended. Here, 
X is updated to reflect the length of VAR$. We 
then jump back to the ML routine so we can 
continue on. 

How to use BUNCRUSH. 

Type in the program from Listing 2. Double- 
check everything, especially the ML DATA, to en- 
sure a good program. Save the program to disk using 
the LIST "D:BUNCRUSH" command or to cassette 
using the LIST "C:" command. To use BUNCRUSH: 
1.) Load in the program you want to cross 
reference. 

2.) Load in BUNCRUSH using the ENTER 
"D:BUNCRUSH" command for disk or the 
ENTER "C:" command for cassette. 

3.) When READY appears, be sure your 
printer and interface are turned on. 

4.) Type in immediate mode GOTO 32500. 
5.) BUNCRUSH should now print out the 
title and the column header VAR LINE 
NUMBERS to the printer. 

6.) The CRT display should say READING 
ML PROGRAM. After 3-5 seconds GOOOO!! 
should appear, and the printer should be busy 
dumping out the Variable Cross Reference. 

Modifications. 

The program in Listing 2 is set up for an ATARI 
825 printer with a line output of 80 columns. Modi- 
fications for other printers follow: 

1.) PRINTER — If you have an ATARI 40- 
column printer, change the >80 in Line 32538 
to >40. 

2. ) NO PRINTER — If you don't have a prin- 
ter, change all LPRINT statements to PRINT in 
Lines 32502, 32503, 32512, 32535 and 32538. 
In addition, change the 80 in Line 32538 to 39. 
Everything will now be dumped out to the 
screen. Use the CNTRL 1 key to STOP/START 
the listing. 

3.) LINE NUMBERS — If you want to 
change the line numbers for BUNCRUSH in 
order to move it up or down, you must beware 
or certain items. All GOTO and GOSUB ref- 
erences must be changed to reflect the new line 
numbers. The most important change of all is in 
the ML routine itself. The ML routine checks to 
see if the current line number is 32500. If you 
change the starting line number of BUNCRUSH, 
you must change the check in the ML routine. 
DATA Line 32548, item 14 is a 126 which is 
the MSB of the line number 32500; DATA Line 
32500, item 5 is a 244 which is the LSB of 
32500. Anyway, whatever your new line 
number, break it down into LSB/MSB format 
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and substitute the appropriate numbers in the 
above mentioned locations. 

4.) OTHER CHANGES — Other things 
which you may want to add to BUNCRUSH are 
ERROR CHECKING and an INPUT line which 
will let you title the listing in expanded print so 
you know what program is being Cross 
Referenced. Another change which would 
require some work is to output an alphabetical 
Cross Reference. The possibilities for additions 
are limited only by your imagination. 

Drawbacks and limitations. 

BUNCRUSH has some limitations which I 
thought should be mentioned prior to receiving a 
bunch of nasty phone calls and letters. Limitations 
on BUNCRUSH are identical to those of the Vari- 
able Lister Utility on page 20. BUNCRUSH will 
not work correctly if: 

1.) The target program uses more than 120 
variables. BUNCRUSH will abort the load pro- 
cedure with an ERROR 4 (Too Many Vari- 
ables). 

2.) Line numbers are the same as BUN- 
CRUSH. In this case, BUNCRUSH will merge 
just fine with the target program but may cause 
problems if the target program has line numbers 
not contained in BUNCRUSH. 

3.) The target program is so large that BUN- 
CRUSH will not load due to an ERROR 2 (In- 
sufficient Memory). 

I've never had problems with item 2 or 3. I have a 
48K system, however, and this may be the reason. I 
have encountered item 1 only once, and it was with a 
canned program. There is a way around all of these 
problems — a method by which BUNCRUSH will 
work on ANY BASIC program. If BUNCRUSH 
were written entirely in machine language, without 
BASIC overhead, everything would work fine. I'll 
leave that as an exercise for the reader. □ 



Listing 1. 

32508 CLR :DIM UARS tl) : 5T=PEEK C1363 +PE 

EKC137)*256:NT=5T 

32502 ? CHRSC125):? 

E33GHIIi": input A 

32504 TL = PEEK CUT) +PEEK t NT+1>*256 : BC = PE 
EK(HT+2J:IF TL= 3258B OR TL>A THEN ? "B 
H3MJJ1 U Ji1'i:i>lll " : GOTO 32512 

32506 IF TL <> A THEN NT = NT + BC : GOTO 3250 
4 

32507 ? " LINE»","NXT LINE*',"NXT STMNT 



INPUT LINE ft TO E 



32508 ? "L5B/MSB"," OFFSET"," OFFSET" 

32509 ? " "JPEEKCNT) ; "/" JPEEK CNT+1J , " 
" ; PEEK I NT+2J," ";PEEK(HT +3) 

32516 ? " ifrmaf:MM jtM-ifoM arisen 1 ' : for k=nt 

+4 T O HT+BC-1:? PEE KtX};" ";:NEXT X:? 

'.'* ' TiTm<ig^f:liaHalT¥1":LI5T A 

32512 ? : ? ' W3iYil\4M*il\=GM'rAl\ ":IHPUT 

UARS 

32514 IF UARS{1,1J="Y" THEN NT=ST:G0T0 

32502 
32516 END 



CHECKSUM DATA 

(See pgs. 7-10) 



32508 DATA 945,677,832,112,92,760,733, 
158,821,323,566,6619 



Listing 2. 



32400 REH MMMKKMMKlOtMKMKKKMKMKMMMMMK 
32410 REM * THIS REM IS TO LET V0IJ * 
32415 REM * KN0M THAT THIS UERSION * 
32420 REM * OF BUNCRUSH HAS BEEN * 
32430 REM * IMPROVED TO HANDLE ALL * 
32440 REM # CASES OF IF/THEN. DON'T* 
32450 REM * TYPE IN THIS REM, JUST * 
32460 REM * READ FOR INFORMATION.. * 
32470 REM iHHHHHHHHHHHHHHHBHHHHHHHHHI 
32480 REM * 

32500 CLR :DIM U6RS <80J , NUMS C5) : CA=PEE 
K f 1301 *PEEK (131>*256 : CC=1 : POKE 1699 , 

32502 ? "«" :LPRINT "CROSS REFERENCE UT 
ILITY VER. 2.6 BY TONY MESSINA NEWPORT 
, RI" 

32503 LPRINT :LPRINT :LPRINT "UAR 

LINE NUMBERS": LPRINT :G05UB 325 
42 

32504 TP=PEEKCCA) : IF TP>=128 THEN TP=T 
P-128:P0KE 1699,1 

32506 UARSCCCCCl-CHRStTPI 

32508 IF PEEKC1699) THEN GOSUB 32526 

32510 CA=CA+l:CC=CC+l:G0T0 32504 

32512 LPRINT : LPRINT "It OF VARIABLES^ 
";PEEK(1695)-128 

32513 END 

32526 IF VARS="VAR$" THEN POP :G0T0 32 
512 

32527 FOR X=CC+1 TO 15 : VAR$ (X, X) =«■ ":N 
EXT X:G0T0 32530 

32530 A=USRtl536) 

32532 IF PEEKC1694) THEN GOTO 32536 

32534 VAR$(X-1,X-1)=" " : IF X<=16 THEN 
UARS CLEN CUAR$J+1}="H0 REFERENCES" 

32535 LPRINT UARS: LPRINT :CC=0:P0KE 16 
99, 0:UARS="":HUM$="": RETURN 

32536 CL=PEEK C1697J +PEEK C1698J*256 
32538 NUM$=STRSCCLJ : IF LEN tUAR$J +LEN CN 
UM$>+2>80 THEN LPRINT UARS:UARS=" 



32548 UARS CLEN (UARS) +11 =NUM$ : UARS CLEN C 
UARSl+ll=", " : X=LEN CUAR Sl : GOTO 32530 
32542 RESTORE 32546:' " EBEE1EMM33JE 
EEC": FOR X=1536 TO 1699: READ TP:P0KE X 

TP : NEXT X 
32544 ? CHRSU25):? " MiUHHUlf ' : RETURN 
32546 DATA 169,0,285,158,6,208,8,165,1 
36,133 

32548 DATA 205,165,137,133,206,160,0,1 
77,205,141 

32550 DATA 161,6,200,177,205,141,162,6 
,201,126 

32552 DATA 208,7,173,161,6,201,244,240 
,96,200 

32554 DATA 177,205,141,157,6,160,4,177 
,205,201 

32556 DATA 28,208,9,192,4,240,1,200,2© 
0,76 

32558 DATA 115,6,205,159,6,240,59,201, 
0,240 

32560 DATA 49,201,1,240,45,201,14,288, 
8,152 

32562 DATA 24,185,7,168,76,115,6,200,2 
01,15 

32564 DATA 208,23,136,136,177,205,200, 
200 281 27 

32566 DATA 240,13,177,205,140,160,6,23 
8,160,6 

32568 DATA 24,189,160,6,168,204,157,6, 
144,183 
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32578 DATA 32,144,6,76,15,6,141,158,6, 

32 

32572 DATA 144,6,76,142,6,136,238,159, 

6,148 

32574 DATA 158,6,184,96,165,285,24,189 

,157,6 

32576 DATA 133,285,144,2,238,286,96,8, 

8,128 

32578 DATA 8,8,8,8,6,8 



CHECKSUM DATA 

(See pgs. 7-10) 

32488 DATA 582,785,847,663,792,888,659 
,796,596,385,897,819,873,152,188,9746 
32598 DATA 581,933,946,557,148,886,127 
,271,666,612,288,126,988,675,568,8204 
32546 DATA 698,145,91,876,121,536,822, 
763,817,137,868,924,484,815,716,8885 
32576 DATA 795,693,1488 



Assembly language listing. 



0003 
0010 
0013 
0020 
0023 
0030 
0033 
0040 
0043 
0030 
0033 
0060 
0063 
0070 
0073 
0080 
0083 
0090 
0093 
0100 
0103 
01 10 
01 13 
0120 
0123 
0130 
0133 
0140 
0143 
0130 
0133 
0160 
0163 
0170 
0173 
0180 
0183 
0190 
0193 
0200 
0203 
0210 
0213 
0220 
0223 
0230 
0233 
0240 
0243 
0230 
0233 
0260 
0263 
0270 
0273 
0280 
0283 
0290 
0293 
0300 
0303 
0310 
0313 
0320 
0323 
0330 
0333 
0340 
0343 
0330 
0333 
0360 
0363 
0370 
0373 
0380 
0383 
0390 



I* ML SEARCH AIDE FOR ATARI 400» 
l» /800 BY TONY MESSINA. » 

l« 48 DUDLEY AVE NEWPORT, RI • 
l» 02840 VERSION 2.6 10 JUL 83 « 
I •••••••••••••••••»••• »»»•»••«»• 

I ■•••••••••••••»••••••••••••••• 

l» EQUATES FOR PR08RAM FOLLOW * 



DATA 

REMARK 

BCD 

STRINQ 

STMT 

THEN 

TOKPTR 

P80 

i 



DI 


1 


DI 





DI 


14 


DI 


IS 


DI 


20 


DI 


27 


DI 


(0088 


DI 


*00CD 



I DATA TOKEN 

I REM TOKEN 

1 BCD » TOKEN 

1 STRINQ TOKEN 

I STATEMENT END 

I THEN TOKEN 

I POINTER TO BB8 

I LOC ON PAGE 



»» THIS PR08RAM DOES A SEARCH • 
I* TO AIDE BUNCRU8H. BASIC MAS > 
)• TOO SLOW, 80 THIS ML ROUTINE* 
l» WAS WRITTEN TO SPEED THINBS » 
1» UP A BIT. . • 



.OS 

,BA «0600 

LDA • ■ 

CMP CDN 

BNE CONTIN 

LDA "TOKPTR 

STA «PO0 

LDA «TOKPTR-H 

STA «Pa0*l 

LDY »0 

LDA (PQ0),Y 

STA LINNUM 

INY 

LDA (P801 , Y 

STA LINNUHfl 



I STORE OBJECT IN MEM 

I ORIGIN P06 

I LOAD A WITH 

I CK WITH CON FLAG 

1 SKIP INIT IF NOT 

I 8ET LSB OF POINTER 

I STORE IT 

I BET MSB OF POINTER 

I STORE IT ALSO 

1 START Y AT ZERO 

I 8ET L8B OF LINE NUMBER 

I SAVE IT FOR BASIC 

I INCREMENT OFFSET BY 1 

I BET MSB OF LINE NUMBER 

I SAVE IT FOR BASIC 



■•••• CHECK THIS LINNUM FOR 32300 ••»• 



WA3DIM 
TAR8CK 



CMP 
BNE 
LDA 
CMP 
BEQ 
INY 
LDA 
STA 
LDY 
LDA 
CMP 
BNE 
CPY 
BEQ 
INY 
INY 
J MP 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
TYA 
CLC 
ADC 
TAY 
J MP 
INY 
CMP 
BNE 



• *7E 
NOEQ 
LINNUM 
»»F4 
DONE 

(PB0) , Y 
COUNT 

• 4 
<PB0) , Y 

• STMT 
TARQCK 

• 4 
WASDIM 



CKCNT 

TARBET 

PROCIT 

•REMARK 

8KIPIT 

• DATA 
SKIPIT 

• BCD 
3TRCK 



•8TRINB 
CKCNT 



IS IT - TO MSB 

IF NO THEN START 

YES 30 CK LSB 

DO IT 

IF EQ. DONE THIS VAR 

INC PTR TO NEXT LOCATION 

BET BASIC LINE BYTE CNT 

SAVE IT FOR FUTURE CK8 

BET NEW OFFSET 

BET A BYTE INDIRECTLY 

CK FOR A STMNT/D1M TOKEN 

IF NO, CK FOR T8T TOKEN 

WAS IT 18T BYTE? 

YES. . IT WAS A DIM! 

INC 2 IF STMNT 

INC 1 FOR DIM 

SEE IF WE ARE DONE 

IS IT OUR TARQET 

IF- BO PROCESS THIS LINE 

NO CK REM 

IF REM SKIP THIS LINE 

NOT REM. CK DATA 

IF DATA SKIP IT ALSO 

NOT DATA CK BCD NUMBER 

IF NOT BCD CK FOR STRING 

ITS BCD PUT OFFSET IN A 

CLEAR CARRY FOR ADD 

ADD 7 TO SKIP THE BCD • 

PUT NEW OFFSET BACK IN Y 

AND 20 CK COUNT 

INC PTR BY ONE 

CK IF STRING TOKEN 

IF NO, 80 CK THE COUNT 



0393 
0400 
0403 
0410 
0413 
0420 
0423 
0430 
0433 
0440 
0443 
0430 
0433 
0460 
0463 
0470 
0473 
01(30 
0485 
0490 
0493 
0300 
0303 
0310 
0313 
0320 
0323 
0330 
0333 
0340 
0343 
0330 
0333 
0360 
0363 
0370 
0373 
0380 
0383 
0390 
0393 
0600 
0603 
06 10 
0613 
0620 
0623 
0630 
0633 
0640 
0643 
0630 
0633 
0660 
0663 



CKCNT 

SKIPIT 

PROCIT 

DONE 



DEY 




DEY 




LDA 


(PQ0) , Y 


INY 




INY 




CMP 


• THEN 


BEQ 


CKCNT 


LDA 


<PG0) , Y 


STY 


YSAVE 


INC 


Y8AVE 


CLC 




ADC 


YSAVE 


TAY 




CPY 


COUNT 


BCC 


START 


JSR 


TOKUP 


JMP 


CONTIN 


STA 


CON 


JSR 


TOKUP 


JMP 


BASIC 


DEY 




INC 


TARBET 


STY 


CON 


PLA 




RTS 





ELSE DEC FOR 

THEN CHECK 

GET PREVIOUS TOKEN 

THEN RESTORE 

ORIGINAL POINTER 

13 IT THEN7 

YEB. IF/THEN NOT STRIN8! 

NO. .BET STRIN8 CNT 

SAVE Y 

INC PAST THE LAST 8TRINB 

CLEAR CARRY FOR ODD 

ADD STRING COUNT TO OLD 

PUT CNT BACK IN Y REB 

ARE WE IN NXT BASIC LINE 

IF NO BET THIS BYTE 

IF YES UPDATE TOKEN PTR 

CONTINUE TO LOOK 

MAKE CON NON-ZERO 

UPDATE PAGE POINTER 

EXIT TO BASIC 

DEC Y TO ZERO 

UPDATE TARGET NUMBER 

ZERO OUT CON FOR BASIC 

PULL. NASTYNES8 OFF 

RETURN TO BASIC 



)• • SUBROUTINE TOKUP » • 

} » »*»«»»•*»*•■*•***»*»» « 

l» THIS SUBROUTINE UPDATES THE « 

l» PG0 PTR OF THE TOKEN PROGRAM" 

l» THE OLD PTR 18 LOADED AND « 

l« THEN THE BYTE CNT 13 ADDED. < 

l» IF CARRY 13 SET PB0-M IS « 

I » ALSO UPDATED > 



LDA »PG0 

CLC 

ADC COUNT 

STA »PB0 

BCC OUT 

INC »PB0+1 
RTS 



BET LSB OF POINTER 
CLEAR CARRY FOR ADD 
ADD CNT TO NXT LINE • 
PUT IT BACK 
IF CARRY CLEAR BET OUT 
OOPS, CARRY SET. INC MSB 
SCRAM SAM' ! 



I »*•»«««• LOCAL VARIABLES FOLLOW 



COUNT 

CON 

TARBET 

YSAVE 

LINNUM 

INVFLB 



. BY 

.BY 128 

. BY 

. BY 



BYTE CNT THIS BASIC LINE 
FLAG FOR BASIC * ML ROUT 
VARIABLE TOKEN • START A 
Y REGISTER SAVE AREA 
BASIC LINE NUMBER LSB 
MSB OF LINE • 
INVERSE FLAB AREA 



ATARI BASIC 
TOKEN TABLE 



COMMANDS 


OPERATORS 


FUNCTIONS 


HEX DEC 




HEX DEC 




HEX DEC 




00 





REM 


OE 


14 


[NUM CONST] 


3D 


61 


STR$ 


01 


1 


DATA 


OF 


15 


[STR CONST] 


3E 


62 


CHR$ 


02 


2 


INPUT 


10 


16 




3F 


53 


USR 


03 


3 


COLOR 


11 


17 


|NOT USED] 


40 


64 


ASC 


04 


4 


LIST 


12 


18 




41 


65 


VAL 


05 


5 


ENTER 


13 


19 


$ 


42 


66 


LEN 


06 


6 


LET 


14 


20 


: [STMT END] 


43 


67 


ADR 


07 


7 


IF 


15 


21 




44 


68 


ATN 


08 


8 


FOR 


16 


22 


[LINE END] 


45 


69 


COS 


09 


9 


NEXT 


17 


23 


GOTO 


46 


70 


PEEK 


OA 


10 


GOTO 


18 


24 


GOSUB 


47 


71 


SIN 


OB 


11 


GOTO 


19 


25 


TO 


48 


72 


RND 


OC 


12 


GOSUB 


1A 


26 


STEP 


49 


73 


FRE 


OD 


13 


TRAP 


IB 


27 


THEN 


4A 


74 


EXP 


OE 


14 


BYE 


1C 


28 


1 


4B 


75 


LOG 


OF 


15 


CONT 


ID 


29 


<= [NUMERICS] 


4C 


76 


CLOG 


10 


16 


COM 


1E 


30 


<> 


4D 


77 


SQR 


11 


17 


CLOSE 


1F 


31 


>= 


4E 


78 


SGN 


12 


18 


CLR 


20 


32 


< 


4F 


79 


ABS 


13 


19 


DEG 


21 


33 


> 


50 


80 


INT 


14 


20 


DIM 


22 


34 


= 


51 


81 


PADDLE 


15 


21 


END 


23 


35 


X 


52 


82 


STICK 


16 


22 


NEW 


24 


36 


* 


53 


83 


PTRIG 


17 


23 


OPEN 


25 


37 


+ 


54 


84 


STRIG 


18 


24 


LOAD 


26 


38 


- 








19 


25 


SAVE 


27 


39 


/ 








1A 


26 


STATUS 


28 


40 


NOT 








1B 


27 


NOTE 


29 


41 


OR 








1C 


28 


POINT 


2A 


42 


AND 








ID 


29 


XIO 


2B 


43 


( 








1E 


30 


ON 


2C 


44 


) 








IF 


31 


POKE 


2D 


45 


= (ARITHM ASSIGN] 








20 


32 


PRINT 


2E 


46 


■ ISTRING ASSIGN] 








21 


33 


RAD 


2F 


47 


O [STRINGS] 








22 


34 


READ 


30 


48 


O 








23 


35 


RESTORE 


31 


49 


>- 
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24 


36 


RETURN 


32 


50 


< 


25 


37 


RUN 


33 


51 


> 


26 


38 


STOP 


34 


52 




27 


39 


POP 


35 


53 


* [UNARY] 


28 


40 


? 


36 


54 




29 


41 


GET 


37 


55 


( [STRING LEFT PAREN] 


2A 


42 


PUT 


38 


56 


( [ARRAY LEFT PAREN] 


2B 


43 


GRAPHICS 


39 


57 


( [DIM ARRAY LEFT PAREN] 


2C 


44 


PLOT 


3A 


58 


( [FUN LEFT PAREN] 


2D 


45 


POSITION 


3B 


59 


( [DIM STR LEFT PAREN] 


2E 


46 


DOS 


3C 


60 


. [ARRAY COMMA] 


2F 


47 


DRAWTO 








30 


48 


SETCOLOR 








31 


49 


LOCATE 








32 


50 


SOUND 








33 


51 


LPRINT 








34 


52 


CSAVE 








35 


53 


CLOAD 








36 


54 


[IMPLIED LET] 








37 


55 


ERROR- [SYNTAX] 











Triangle Demo 




5 C = l 




10 


GRAPHICS 23 




15 


E=INTC388*RNDC1)) 




28 


D=INTC388*RNDCD) 




25 


C=i 




38 


COLOR C 




35 


B=39 




48 


A=79 




45 


FOR 5=1 TO D STEP E 




58 


FOR X=A TO B STEP -2 




55 


PLOT 88,A-X 




68 


DRAMTO 80+X,INTCA/SJ 




65 


DRAMTO 88, X 




78 


DRAMTO 88-X,INTCA/S) 




75 


DRAMTO 88,A-X 




88 


IF PEEKC764J<>255 THEN END 


85 


COLOR C 




98 


NEXT X 




95 


C=C+1 




188 NEXT 5 




185 SETCOLOR 8,T,2 




110 T=T+1 




115 GOTO 5 






CHECKSUM DATA 






(See pgs. 7-10) 




5 DATA 693,999,498,483,967, 


768,238,227 


,138,962,886,148,38,146,582 


,7677 


88 


DATA 871,785,483,77,748, 


588,326,662 


,4388 
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SYS/ STAT 



16K Cassette or Disk 



by Robert Hartman 



System Status is a BASIC program that allows 
the user to look at a formatted listing of all the 
devices accessible to him/her. It also has the capabil- 
ity to display 64 files on drives one through four. Its 
main purpose, however, is not to be a menu, but to 
supply the user with information regarding the 
accessibility of the four RS-232 ports. 

NOTE: If a drive is started up after the program 
has been run, it is necessary to re-run the program in 
order to get a menu on that particular drive. □ 



18 REM Analog SysteM Status 

20 REM version 1.1 

38 REM Copyright CC3 April, 1381 

48 REM by Robert M. HartHan 

58 DIM ASC203,BSC63,FSC53,AC53 : GRAPHIC 

5 8:P0KE 752,1:P0KE 559,0:POKE 82,1:P8 

KE 83,39:FR=FREC03 : LSCH=764 : C0N=53279 

68 POKE 65,8:REM Noisy I/O off 

78 REN SET UP SCREEN 

88 FOR 1=19 TO 22: POSITION 18,1:? "I": 

NEXT I 

98 POSITION 12,1:? "analog systat":F0 

R 1=12 TO 25:P0SITI0N 1,8:? ,, -":P0SITI 

ON 1,2:? "-"'SPOKE CON,0:NEXT I 

188 FOR 1=8 TO 38:P0SITI0N 1,3:? »-««:P 

OSITION 1,19:? "-":NEXT I 

118 REM CHEAT tjUSt a little ! 

128 position 12,5:? "GH5HHEE SGBEHjB " : 

FOR 1=12 TO 26:P0SITI0N 1,6:? "-":NEXT 

I:P0SITI0N 1,7:? "13 -Keyboard" 
138 POSITION 1,9:? ^B -Screen":POSITIO 
N 1,11:? "9 -Editor":POSITION 1,13:? " 
S -Cassette" :C=7:R=26 
148 REM SYSTAT 

158 TRAP 198:0PEN ttl,6, 8, "Dl :*.*" : POSI 
TION R,C:? "3D -Drive ttl": GOSUB 268 :D1 
=1 

168 OPEN »2,6,8,"D2:*.*":P0SITI0N R,C: 
? "00 -Drive 82" :G05UB 268:D2=1 
178 OPEN tt3,6,8,"D3:».*":P05ITIQN R,C: 
? "HB -Drive tt3":G0SUB 268:D3=1 
188 OPEN tt4,6,8,"D4:*.*":P0SITIGN R,C: 
? "GO -Drive 84":G0SUB 268:04=1 
198 TRAP 288:0PEN 85,8, 8, "R : " : GOSUB 27 
8 

288 CLOSE 85: TRAP 218:0PEN 85,8,B,"P:" 
:P0SITI0N 14,14:? "Q -Printer" 
218 REM MEMORY 

228 POSITION 1,19:? "Ai*ount-of-Mei*ory" 
:POSITION 1,28:? FR:F0R 1=1 TO 5:P05IT 
ION I,28:GET 86,A:ACI3=A:NEXT I 
238 FOR 1=1 TO 5 : FS tl, 13 =CHR$ tA CI3+128 
3:NEXT I . POSITI ON 1,28:? ,:P05ITI0N 2, 

2i:? FS;"13?EEB" 

248 GOTO 288 

258 FOR 1=1 TO 7 : CLOSE 81: NEXT I:RETUR 

N 

260 C=C+2:RETURN 

278 POSITION 12, 16: FOR 1=1 TO 4 : ? "B"; 

CHRSCI+48+1283;", ";:NEXT I:? "Hi'MPOS 



ITION 12,17:? "R5232-C ports" : RETURN 
288 TRAP 32767 :P05ITI0N 23,19:? "COMMa 
nds": POSITION 24,28:? "C-Menu Cs3 " 
298 POSITION 24,21:? "0-Run again 
:P0SITI0N 24,22:? "H-EXIT" : POKE 559,34 
:SETC0L0R 2,4,4:P0KE L5CH,255 
388 CLOSE 85: OPEN 85,4,0,"K :" :GET 85, A 
:IF A<>69 AND A<>77 AND A<>82 THEN 388 
310 IF A=69 THEN GRAPHICS 8 : POKE 65,1: 
GOSUB 259: MEW 
328 IF A=82 THEN RUN 
338 REM MENUCS3 

348 P85ITI0N 23,19:? " ":P0KE 2 

81,14:F0R 1=28 TO 22:P0SITI0N 24,1:? , 

:NEXT I:PQSITION 24,21:? "Enter Drive" 

350 TRAP 288:P8SITI0N 37,21:INPUT DR 

368 IF DR<1 OR DR>4 THEN 288 

378 IF DR=1 AND Dl=l THEN DRU=1:G0T0 4 

28 

388 IF DR=2 AND D2=l THEN DRV=2:G0T0 4 

28 

398 IF DR=3 AND D3=l THEN DRU=3:G0T0 4 

28 

488 IF DR=4 AND D4=l THEN DRU=4:G0T0 4 

28 

418 GOTO 288 

428 ? "«": POSITION 2,1:? "Menu for Dri 

ve 8";DRU:? :? :GOSUB 258:B$="D :*.*": 

B$C2,23=5TRSCDRU3 

438 OPEN m,6,8,B$:0PEN 82,4, 8, "K : " 

448 TRAP 488: INPUT «1,A5;N=N+1 

458 ? AS(2,LENCASJJ : IF PEEK(903=21 THE 

N POKE 82,PEEK<82J+28;P8SITI0N PEEK C82 

»,4 

468 IF N=35 THEN GOTO 520 

470 GOTO 440 

480 ? CHRS128J;" ":? :l 

F LEN(A$}>15 THEN IF AS C10, ii)="SE" TH 

EN GOTO 508 

498 AStLENCASl+lJ=" FREE 5ECTCRS" 

588 FOR 1=1 TO LEN fA$J : A5 CI, 13 =CHR5 CAS 

CCASCI, 133+1283 :NEXT I:? AS 

510 POKE LSCH,255:GET i*2,R:CL05E »2:RU 

N 

528 REM Get rest of Menu After Char 

538 POKE LSCH,255:GET »2,A:P0KE 82,2:? 

"REPOSITION 2,3 
548 TRAP 578: INPUT »1 , AS : ? AS C2, LEN CAS 
33 

550 IF PEEKC903=22 THEN POKE 82,PEEKC8 
23+28:POSITION PEEKC823,4 
568 GOTO 540 
570 TRAP 32767: GOTO 488 



CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 988,4,923,497,183,455,788,739, 

522,885,473,8,266,62,125,6822 

168 DATA 971,986,1,844,985,35,329,933, 

723,526,292,597,148,128,961,8451 

318 DATA 771,880,146,284,921,738,288,2 

97,386,287,718,918,984,932,648,8958 

468 DATA 418,728,64,134,615,333,767,23 

7,39,838,729,937,5831 
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FASTERCHARACTER DUMPS 



16K Cassette or Disk 



by Joseph T. Trem 



If you are an avid ATARI enthusiast as I am, then 
you probably have gone through quite a number of 
different programs. Many of the better programs use 
character redefinition. Unfortunately, to define a 
new character set one must move ATARI'S character 
set into a new defined memory location. In BASIC, 
this takes time. For 1024 bytes ( 128 characters or 4 
pages) it takes approximately eleven seconds. It's 
downright boring! 

This article demonstrates a machine language 
routine in string form which transfers ATARI'S 
character set into a user-chosen RAM area. It runs in 
a split second. Before going any further, I must state 
that this article is not a tutorial on character redefini- 
tion or animation, although they are both used in 
the demo. 

Here is a brief summary of the four sample pro- 
grams included. Program 1 demonstrates charac- 
ter redefinition and the time involved in transferring 
1024 bytes (line 40). This takes approximately 11 
seconds. Program 2 incorporates the machine 
language routine and takes less than a second (line 
30). Program 3 demonstrates a sample program 
with sound and animation. There are five redefined 
characters. After the program executes once, it 
recycles and re-executes all over again. Notice the 
time it takes to rerun. . .remember: every time this 
program runs, it is dumping 1024 bytes in under a 
second! Program 4 is the source code for the 
machine language routine. 

The technique used in this program is called a 
block move. We simply look at what is in ATARI'S 
character base address and move that data to our new 
character address, one byte at a time. This technique 
is also good for player/missile graphics. You can zero 
out all player/missile data in a split second. Just 
think, no more time delay to clear P/M memory. 
Sound great? Then read on... here is the 
documentation for the first three programs. 
Program 1. 
Line 20 — Sets up character variables 
Line 40 — Transfers characters (slow) 
Lines 50-70 — Reads in new character 
Line 80 — Points to new character base 



Program 2. 

Line 20 — Sets up character variables 
Line 30 — Transfers characters (fast) 
Lines 40-60 — Reads in new character 
Line 70 — Points to new character base 

Program 3. 

Line 10 — Sets up variables 
Line 100 — Transfers 128 characters 
Lines 1000-2170 — Alters character set 
Line 3000 — Points to a new character base 
Lines 3500-7000 — Main loop for 
animation 

Line 10000 — Sound routine 

Here's some information on our USR call: 
A=USR (ADR CE$) , ADDR , PAGE) 

ADDR=address where new character set is to 
reside 

PAGE=the number of 256 blocks you wish 
to move. 

In closing, 1 hope that everyone will enjoy the 
substantial increase in speed this subroutine can pro- 
vide. Just think, no more "Please wait. . . " prompts. 
□ 



Program 1 



18 REM ***DUMPS 1024 BYTES TO HEW CHBA 
S USING ONLY BASIC (APR0X . 11 SECONDS) 

20 DIM E$(58) :RAMT0P=PEEKC186)-8:P0KE 

186, RAMT0P : CHBAS=RAMTOP : ADDR=CHBAS*256 

38 GRAPHICS 17:P0SITI0N 8,9:? tt6; M M0VI 

NG CHARACTER SET" 

40 FOR X=8 TO 1823:P0KE ADDR+X, PEEK C57 

344+H) :NEXT K 

50 CHAR-59:P05=ADDR+CCHAR*8) 

68 DATA 8,24,36,66,153,66,68,8 

78 FOR X=8 TO 7: READ A: POKE CP0S+X),A: 

NEXT X 

88 GRAPHICS 18:P0KE 752,1:P0KE 756, CHB 

AS 

98 POSITION 18,5:? »6;"t" 

188 GOTO 100 
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CHECKSUM DATA 

(See pgs. 7-10) 



18 DATA 377,95.598,506,976,318,769,421 
,361,683,5895 



Program 2 

18 REM ***DUMP5 1824 BYTES TO HEM CHBA 

5 IN MACHINE LANGUAGE (NO DELAY}*** 

28 DIM E$(503 : RAMTOP=PEEK (1063 -8 : POKE 

186 , RAMTOP : CHBAS=RAMTOP : ADDR=CHBAS*256 

:PAGE=4 

38 FOR X=l TO 48: READ N : E$ (X3=CHR$ (N3 : 

NEXT X:A=USR(ADR(E$3 ,ADDR,PAGE3 : REM *D 

UMP ROUTINE* 

48 DATA 184,104,133,287,184,133,286,18 

4,104,133,212,169,8,133,284,169,224,13 

3,285,162 

58 DATA 1,168,8,177,284,145,206,288,28 

8,249,238,285,238,297,232,228,212,288, 

248,96 

68 CHAR=59:P0S=ADDR+(CHAR*83 

78 DATA 8,24,36,66,153,66,68,0 

80 FOR X=0 TO 7: READ A : POKE (P8S+X3,A: 

NEXT X 

90 GRAPHICS 18:P0KE 752,1 :POKE 756, CHB 

AS 

188 POSITION 9,5:? U6}"V 

118 GOTO 118 



3818 POSITION 1,28:? t»6;"ASSY CHARACTE 

R DUMP" 

3580 FOR X=0 TO 4: POKE 798, 14 ". POSITION 

X,5;? 88;" I ":GOSUB SND:POKE 788, 8:P 
OSITIOH X,5:? 1*6;" \ ":GOSUB 5ND 
3510 NEXT X 

3529 FOR 1=1 TO 20:P0KE 708,14:G0SUB S 
ND:POKE 788,8:G0SUB SND 
3538 NEXT I 

4889 FOR X=5 T9 19: POKE 798, 14 :P0SITIO 
N X,5:? tt6;" I ":G05UB SND:POKE 798,8: 
POSITION X,5:? tt6j" \> ":GOSUB SND 
4619 NEXT X 

4529 FOR 1=1 TO 29:P0KE 798,14:G0SUB S 
ND:POKE 798,8:G0SUB SND 
4539 NEXT I 

5808 FOR X=ll TO 14:P0KE 788, 14 : POSITI 
ON X,5:? tt6;" t ":GOSUB SND: POKE 708,8 
SPOSITION X,5:? tt6;" \ ":GOSUB SND 
5010 NEKT K 

6888 POSITION 15,5:? B6; "J" : FOR D=14 T 
18 STEP -H50UND 0, 30, 8, D :NEXT D 
6010 POSITION 15,5:? tt6; ,,A,, :F0R D=10 T 
5 STEP -l:50UND 8, 100,8, D :NEXT D 
6828 POSITION 15,5:? tt6;"_":F0R D=5 TO 

8 STEP -l:SOUND 8, 39, 8, D : NEXT D 
6838 POSITION 15,5:? tt6; ,, _" :FOR D=5 TO 

STEP -1:S0UND 0, 36,8, D : NEXT D 
6848 POSITION 15,5:? tt6;"*" :FOR D=18 T 
5 STEP -l:SOUHD 8, 199, 8,D :NEXT D 
6959 POSITION 15,5:? tt6;"]":F0R D=14 T 
19 5TEP -l:SOUND 8, 38, 8, D : NEXT D 
6876 POKE 788,8:S0UND 8,8, 8,8 : SOUND 1, 
0,9,8:S0UND 2,9,8,8 
7889 GOTO 19 

19999 SOUND 8,299, 12,8 : SOUND 2,283,12, 
8:S0UND 1,RND(03*10,1O,8:RETURN 



CHECKSUM DATA 

(See pgs. 7-10) 

18 DATA 659,729,478,848,552,978,328,76 
2,423,292,689,6722 



Program 3 

18 CLR :DIM E$(583 : RAMT0P=PEEK (1863 : CH 

BA5=RAMT0P-8 : ADDR=CHBAS*256 : PAGE=4 : SND 

=18888 

188 FOR X=l TO 48:READ N : E$ (X3 =CHRS (N3 

:NEXT X:A=U3R(ADR(E$3,ADDR,PAGE3 :REM * 

DUMP ROUTINE* 

118 DATA 194,194,133,297,194,133,296,1 

94,194,133,212,169,9,133,294,169,224,1 

33,295,162 

126 DATA 1,169,9,177,284,145,286,286,2 

08,249,238,285,239,297,232,228,212,208 

,249,96 

1000 CHAR=59:P05=ADDR+(CHAR*83 

1010 DATA 0,0,144,96,144,9,9,9 

1929 FOR X=0 TO 7:READ A:POKE (P0S+X3 , 

A: NEXT X 

2000 CHAR=60:PO5=ADDR+(CHAR*83 

2010 DATA 0,6,6,15,6,6,6,0 

202© FOR X=0 TO 7: READ A : POKE (P0S+X3 , 

A: NEXT X 

2050 CHAR=61:P05=ADDR+(CHAR*83 

2066 DATA 0,0,9,29,8,29,9,9 

2979 FOR X=9 TO 7: READ A: POKE (P0S+X3 , 

A: NEXT X 

2108 CHAR=62:P03=ADDR+(CHAR*83 

2118 DATA 8,8,28,18,69,29,19,9 

2129 FOR X=9 TO 7:READ ft : POKE (P0S+X3 , 

A:NEXT X 

2150 CHAR=63:P05=ADDR+(CHAR*83 

2168 DATA 8,148,104,57,86,72,2,8 

2178 FOR X=8 TO 7: READ A : POKE (P0S+X3 , 

A: NEXT X 

3000 GRAPHICS 17: POKE 752,1: POKE 756, C 

HBAS 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 772,278,748,586,876,319,217,87 
2,803,219,878,993,224,877,233,8815 
2128 DATA 222,883,396,227,344,928,573, 
549,57,586,809,536,59,568,398,6995 
5810 DATA 538,815,747,838,839,758,828, 
756,623,551,7277 



Assembly listing. 

8138 ; CHARACTER DUMP BY JOE TREM 

8118 OLD^CC ;TEMP. LOCATION OF ATARI'S CHARACTER SET 

8128 NEW=*CE ;TEMP. LOCATION OF NEW CHARACTER SET 

8138 PAGE=<tD4 (NUMBER OF 256 BYTE BLOCKS 

8148 *=*688 

8158 PLA 

8148 PLA ;PULL HIGH BYTE OF ADOR 

8178 STA NEU+1 

8188 PLA ;PIJLL LOW BYTE OF ADDR 

8198 STA NEW 

8288 PLA ;PULL HIGH BYTE-DON'T NEED 

8218 PLA iPULL NUMBER OF BLOCKS TO MOVE 

8228 STA PAGE 

8238 LDA K88 ;LOADS IN ATARI CHR.SET 

8248 STA OLD 

9258 LDA #$E8 ;ATARI CHR. SET IS AT $E888 OR 57344 IN Bf 

8268 STA OLD+f 

8278 LDX #1 

8288 LDY 118 

8298 LOOP LDA (OLD).Y 

8389 STA (NEW) ,Y ;MOUES TO NEW AREA 

8318 INY 

3328 8NE LOOP 

8338 INC OLD+1 

0348 INC NEU+1 

8358 INX 
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8368 CPX PAGE 

8376 BNE LOOP 

8388 RTS :IF ALL BLOCKS ARE LOADED RETURN TO BASIC 

0398 .END 



Atari Symbol Demo 



REM XXXXXXXXXXXXXXXXXXXX 
REM X- x 

2 REM * ATARI SYMBOL * 

3 REM * BY CRAIG WEISS * 

4 REM * * 

5 REM MMMMMMMMXMMKMMMMMMMM 

10 GRAPHICS 24,'COLOR l:POKE 559,0 
20 R=0 

24 REM 

25 REM *** PLOT 5TRAIGHT LINES *** 

26 REM 

30 READ M,X,Y,Z:PLOT M,X:DRAMT0 Y,Z:R= 

R+l 

100 DATA 144,13,144,76,144,13,156,15,1 

44,13,128,28,156,15,156,88,160,16,156, 

20,160,16,160,176 

110 DATA 160,16,180,20,180,20,180,176, 

184,21,180,24,184,21,194,24,194,24,194 

,84,240,154,240,172 

120 DATA 240,172,220,172,180,176,160,1 

76,160,176,144,176,144,176,144,144,88, 

180,68,180,88,180,88,160 

130 DATA 68,180,68,160,68,160,88,160,1 

28,28,128,76,184,21,184,84 

134 REN 

135 REM *** PLOT FALSE CURUES *** 

136 REM 

140 DATA 128,77,126.5,94,126.5,94,124, 

108,124,108,120,122,120,122,112,137,11 

2,137,104,145 

150 DATA 104,145,96,150,96,150,88,155, 

88,155,80,158,80,158,72,160 

160 DATA 144,76,142.5,94,142.5,94,140, 

108,140,108,135,122,135,122,126,137,12 

6,137,120,145 

170 DATA 120,145,114,151,114,151,108,1 

55.5,108,155.5,100,158.5,100,158.5,88, 

160 

180 DATA 156,88,153.5,112,153.5,112,15 

0,128,150,128,144,144,143,144,136,156, 

136,156,124,168 

190 DATA 124,168,112,176,112,176,102,1 

79,102,179,96,180,96,180,88,180 

200 DATA 194,84,194,92,194,92,198,112, 

198,112,208,130.5,208,130.5,216,141,21 

6,141,224,148 

218 DATA 224,148,232,152,232,152,240,1 

54 

220 DATA 184,84,186,104,186,104,189.5, 

120,189 .5,120 , 196 , 136 , 196, 136, 204 , 148 

230 DATA 204,148,216,160,216,160,228,1 

68,228,168,240,172 

240 DATA 182,122,184,132,184,132,188,1 



40,188,140,196,152,196,152,208,164,208 

,164,220,172 

250 IF R<68 THEN 30 

260 IF R=68 THEN 500 

310 REM 

320 REM FILL 

330 REM 

400 Q=0 

500 READ A,B,C,D:PL0T A,B:P0SITI0N C,D 

:Q=Q+1 

900 POKE 765,1 

910 KIO 18, 1*6,0,0, "5:" 

1000 DATA 144,13,144,76,144,76,142.5,9 

4,142.5,94,140,108,140,108,135,122,135 

,122,126,137,126,137,120,145 

1010 DATA 120,145,114,151,114,151,108, 

155 . 5 , 108 , 155 . 5 , 180, 158 . 5 , 100 , 158 . 5 , 88 

,160,88,160,88,180 

1020 DATA 160,16,160,176,184,21,184,84 

1030 DATA 184,84,186,104,186,104,189.5 

, 120 , 189 . 5 , 120 , 196, 136, 196, 136 , 204, 148 

1040 DATA 204,148,216,160,216,160,228, 

168,228,168,239,171 

2000 IF Q<20 THEN 500 

2010 IF Q=20 THEN 2800 

2500 REM 

2510 REM *** MACHINE LANGUAGE *** 

2520 REM 

2800 POKE 559, 34: FOR X=l TO 1000: NEXT 

X 

3000 FOR 1=1664 TO 1673:READ A : POKE I, 

A: NEXT I 

3010 DATA 232,142,10,212,142,24,208,76 

,128,6 

3020 ? USRC16643 : RETURN 

3030 RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

DATA 552,194,141,406,200,562,472,981 

,265,567,271,550,605,686,546,6998 

130 DATA 16,87,243,89,84,805,118,371,6 

01,330,184,540,938,889,345,5640 

250 DATA 655,495,81,759,87,225,685,793 

,764,530,838,34,78,73,592,6689 

2010 DATA 864,292,243,294,870,63,617,1 

61,786,4190 
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MULTIPROCESSING 



16K Cassette or Disk 



by Mark Chasin 



No, this article will not enable you to set up a time- 
sharing service on your ATARI home computer, but 
it will demonstrate how to implement a form of 
multiprocessing which has been used in a number of 
recently released programs for the ATARI. To un- 
derstand the principles of this program, you will 
need some background on how the video display 
operates. 

The beam of electrons generated in the cathode 
ray tube of your TV set is focused and directed at the 
phosphors on the screen. The beam begins scanning 
the screen at the upper left corner, and proceeds 
across the screen from left to right. At the right edge, 
it returns to the left side and drops down one scan 
line, and proceeds to the right again. This process is 
repeated 262 times until the whole screen has been 
scanned, and then the beam is turned off and re- 
turned to the upper left corner to repeat the process 
again, sixty times a second. 

This seems like a great deal to handle in one- 
sixtieth of a second, but your ATARI has a machine 
cycle time of 560 nanoseconds, so in that time in- 
terval, the ATARI can execute approximately 
30,000 cycles. The result of this is that when the 
beam returns to the upper left corner of the screen, 
there is a good deal of time to waste before it must 
start scanning again. At this point, the ATARI goes 
off on its own, performing a number of housekeep- 
ing functions, updating timers and the like. Ulti- 
mately, it returns to the business of drawing on the 
screen. 

The folks who built your ATARI designed the 
system so that it could be modified easily by anyone 
wanting to do so, and the remainder of this article 
will discuss such a modification. The computer 
"knows" where to go during the wait described 
above because two memory locations contain a hexa- 
decimal address telling it where to go, and every time 
it gets to the upper left corner of the display, it looks 
in these memory locations and goes to the indicated 
address, where the housekeeping routines are stored. 
This process is called vectoring. There are actually 
two independent routines performed during each 
interval, and separate vectors exist for each. The im- 



mediate vertical blank vector is found at hexadeci- 
mal address $0222 and $0223, and the second vec- 
tor, called the deferred vertical blank vector, is found 
at $0224 and $0225. What we are about to do is 
change the address located at $0224, $0225 to point 
to our own routine, and then we'll jump back into 
the routine that the ATARI was originally pointing 
to. When this is accomplished, our routine will 
execute 60 times per second, and will continue to 
execute until we either turn off the computer or hit 
SYSTEM RESET. This will be totally independent 
of anything else we may be doing at the time, such as 
programming, editing, or playing a game! 

The BASIC program shown in Figure 1 is simply 
an implementation in BASIC of the Assembly lan- 
guage program shown in Figure 2, so I will describe 
the operation of the Assembly language program in 
detail. First, I will list the locations and their uses 
within the program. 

COUNT 1 — used to determine how many 

times we have gone through the routine, to cal- 
culate when to start and stop the notes to be 

played. 

COUNT 2 — used to remember which note 

the routine is playing. 

VVBLKD — the location of the deferred 

vertical blank vector. 

SETVBV — an ATARI routine, described 

in more detail below. 

MUSIC — the location where the list of 

notes to be played is stored. 

RETURN — this is where we need to jump 

to return to the ATARI housekeeping routines. 
SND — the frequency register for SOUND 

O. 

VOL — the distortion and volume register 

for SOUND O. 

Lines 130 and 170-190 are housekeeping func- 
tions of this routine. Line 130 provides the PLA 
instruction necessary for accessing the routine from 
BASIC, and lines 170-190 set both COUNTs to 0. 
Lines 230-270 repoint the delayed vector to our 
routine, as follows. Since the 6502A inside your 
ATARI is an 8 bit processor, we can only handle one 
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byte at a time. It should be obvious that if the com- 
puter tries to access this vector after we have changed 
one byte of the address, but before we have changed 
the second, the computer will go on a wild goose 
chase looking for where it should be. To prevent this, 
those clever folks who wrote the operating system 
for your computer built in a routine, called SETVBV, 
which will change these vectors without the chance 
of fouling things up. To use it, we load the Y register 
with the new vector low byte, and the X register with 
the new vector high byte, $20 and $06 respectively 
in this case, since our routine is loaded at $0620. We 
then load the accumulator with a 7 if we are setting 
the deferred vector, or a 6 if the immediate vector, 
and then we JSR to the subroutine SETVBV. Presto! 
Our vector is changed, and the routine starts oper- 
ating. 

This routine will play a little familiar background 
music while you slave away over a hot computer. 
Later on, I'll describe how to change the tune to your 
own selection. The routine starts on line 320. This is 
the first time through, so we increase COUNT 1 to 
one. If COUNT 1=12, we'll turn the note off, and 
when COUNT 1 = 15, we'll play the next note, and 
reset COUNT 1 to 0. Lines 360-370 shut off the 
note, lines 410-420 reset the count to 0, and lines 
430-470 play the next note. The tune consists of 
eight notes repeated over and over, and COUNT 2 
keeps track of which note is being played. When it 
gets up to 8, it's reset to (lines 480-530), so the 
first note is played right after the eighth. If COUNT 
1 is not equal to either 12 or 15, the routine ends and 
returns to the normal housekeeping functions per- 
formed by the ATARI during the vertical blank 
period (line 400). Also, after a new note is started, 
the same thing happens (line 540). The table of notes 
played in the tune is located in line 590. 

The BASIC program in Figure 2 simply converts 
the instructions described above into decimal form, 
and POKEs the routines into the correct place in 
memory. The routine is then set in motion with the 
USR call in line 27000, and from that point on, can 
be ignored. It will continue by itself! 

Changing the tune being played is very simple. 
Choose a song in which all the notes are the same 
length, e.g., quarter notes. In line 24000, change the 
1639 to ( 1632+the number of notes in your tune-1), 
replace the data in lines 25000 and 26000 with the 
notes for your tune, and change the 8 in line 22000 
to the number of notes in your tune. Remember, the 
tune will play over and over, so pick something 
which sounds good on repetition. 

The routine presented here can be ended by a 

power-off, power-on sequence, or by a SYSTEM 

RESET. A third method, probably more useful for 

use in a program, is this: 

POKE 1562, 104: POKE 1544,98:P0KE 1546,2 
28:K=U5R(15423 :50UN& 9,0,0,0 



This is a simple demonstration of the use of verti- 
cal blank interrupt routines. There are many other 
potential uses for this approach, such as background 
music for another program, checking for keyboard 
or joystick input during a program, or implementa- 
tion of multitasking. It is perfectly feasible to have 
two completely separate programs running "simul- 
taneously," but the programming for this gets fairly 
complicated. One program would run in real time, 
and the other during the vertical blank interrupt 
routines. Play around with the ideas presented here, 
and learn all about simultaneous processing. □ 



Figure 1. 

8000 REN MMXMXXMXXKXXXXMXKMXMK FIRST, 

WE'LL POKE IN THE LINES FROM 130-270 
OF THE ASSEMBLY LISTING XXXXXXXXXKXX 
9900 RESTORE 10000 ."FOR 1=1536 TO 1552: 
READ A: POKE I,A:NEMT I 
10000 DATA 104,169,0,133,192,133 
11000 DATA 194,160,32,162,6,169 
12900 DATA 7,32,92,228,96 
13000 REN KXXKXMXXXXXXXXXXXXXXXXMXXKXX 

THEN WE'LL POKE IN THE MAIN ROUTINE 
XXKXXXXXXKXKXKKMKKXXXKKXKXXXXKXXKXKXK 
14000 RESTORE 15000 : FOR 1=1568 TO 1619 
:READ A:P0KE I,A:NEXT I 
15000 DATA 230,192,166,192 
16000 DATA 224,12,144,5,169,0 
17000 DATA 141,1,210,224,15,176 
18000 DATA 3,76,98,228,169,0 
1900O DATA 133,192,166,194,189,96 
20008 DATA 6,141,0,210,169,166 
21000 DATA 141,1,210,230,194,166 
22000 DATA 194,224,8,144,4,169 
23000 DATA 0,133,194,76,98,228 
23588 REN XXXXXXXXKMXXXXXXXXXXXXMXXXXX 
FINALLY, HE'LL POKE IN THE TABLE OF NO 

TES XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

24000 RESTORE 25000 : FOR 1=1632 TO 1639 

:READ A:P0KE I,A:NEXT I 

25000 DATA 243,243,217,243,284,243 

26000 DATA 217,243 

26500 REN xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

H0H HE'LL RUN THE ROUTINE! j XXXXXXXXXX 

27000 X=USRC1536) 



CHECKSUM DATA 
(See pgs. 7-10) 

8000 DATA 133,466,426,611,26,547,951,8 
74,164,587,365,735,335,421,397,7038 
23000 DATA 403,616,945,911,197,274,175 
,3521 



Figure 2. 



10 «= $8688 
2fl COUNTI = *88C8 
38 WBLKD = $8224 
18 C0UNT2 = *88C2 
58 SETVBV = $E45C 
48 MUSIC = tU62 
n RETURN = $E462 
88 SND = 4D288 
% VOL = *D281 
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bi IB 

8128 
8136 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 
8298 



PLA FOR BASIC ACCESS 



8318 
8328 
8338 
8348 
8358 
8366 
8378 
0388 
8398 
6488 
8418 
0428 
8438 
8448 
8458 
8466 
8478 
8486 
8498 
6588 
6518 
8528 
8538 
8548 
8558 
8568 
8578 
6586 
8598 



PLA 

| initialize counters to zero 
'lda w 

STA C0UNT1 
STA CQUNT2 

HOW RESET DEFERRED VECTOR 

LDY #$28 
LDX «86 
LDA m 
JSR SETUBV 
RTS 

; MAIN INTERRUPT ROUTINE 

'*= $0620 

INC COUNTi 

LDX COUNTi 

CP.X 812 :TINE TO STOP NOTE' 

BCC Kl ;NQ 

LDA 88 -YES, SO STOP IT 

STA VOL 
Kl CPX #15 ,'15/68 SECONDS GONE'' 

BCS PLAY ;YES. PLAY NEXT NOTE 

JMP RETURN ;N0, END INTERRUPT 
PLAY LDA #8 

STA COUNTI ;RESET COUNTI TO ZERO 

LDX COUNT2 ;6ET NOTE TO PLAY 

LDA MUSIC,X;L0OK IT UP 

STA SND ;SET IT'S FREQUENCY 

LDA 8$A6 

STA VOL ;SET PURE NOTE , VOLUMES 

INC C0UNT2 ;S£T UP NEXT NOTE 

LDX COUNT2 

CPX #8 ;ALL NOTES USED UP' 

BCC DONE ;NO 

LOA m ;VES, START OVER AGAIN 

STA C0UNT2 
DONE JMP RETURN ;ALL DONE 

TABLE OF MUSICAL NOTES 

'*= tU6t 
.BYTE 243,243,217,243,284,243,217,243 



Graphics 10 GTIA Demo 



18 REM GRAPHICS 19 GTIA DEMO 

20 REM 

SO GRAPHICS 10 

40 REM CHANGE DATA TO CHANGE COLORS 

50 FOR CN=0 TO 7: READ CV.'POKE 705+CN,C 

U:NEXT CN:DATA 6,12,23,42,53,62,73,84 

60 C=0:SETCOLOR 4,C,0 

70 FOR X=0 TO 35 

80 FOR Y=0 TO 95 

YH*YHJ P~ K ! YM=95_Y : DI ^T=INT f SQR CXW*XW+ 

100 COLOR l+8*CDIST/8-INTCDIST/8)J 

110 PLOT X,Y 

120 PLOT 79-X,Y 

130 PLOT X,191-Y 

140 PLOT 79-X,191-Y 

150 NEXT V 

160 NEXT X 

170 REM ROTATE COLOR REGISTERS 

180 CH0LD=PEEKC705) 

190 X=705 

200 POKE X, PEEK CX+1) 

210 XrX+l:IF X<712 THEN 200 

220 POKE 712,CH0LD 

230 GOTO 180 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 989,253,992,750,196,890,294,29 
7,224,512,822,151,427,756,775,8328 
160 DATA 776,485,793,323,635,532,502,7 
18,4764 
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MOVING PLAYERS 
IN BASIC 



16K Cassette or Disk 



by Tom Hudson 



Player-missile graphics are one of the most 
powerful graphic features of ATARI personal 
computer systems. Unlike traditional graphics, 
players and missiles can be moved around on the 
screen without disturbing the existing display. 

In order to use players and missiles, one must first 
reserve a portion of memory. Once this is done, the 
user can begin designing and displaying the players 
and missiles. 

The problems begin when the user wants to move 
a player or missile around on the screen. Horizontal 
movement is done easily. A POKE to the appropriate 
horizontal position memory location will move the 
desired player to any horizontal location on the 
screen. If the user wants to move a player or missile 
vertically, he or she must copy the P/M bit image to 
another location in memory. BASIC is too slow to 
do this smoothly, but it can call a machine-language 
subroutine to do the "dirty work." 

Designing Players 

Before we start using the player movement 
subroutine, we must have some sort of graphic image 
to place in the player. 

Players are eight pixels (picture elements) wide, so 
the first step in designing the player image is to draw 
a matrix eight cells across and as tall as the desired 
image. In the "two line" resolution player mode 
(each pixel in the player is two television scan lines 
tall), the player can be up to 128 pixels high. The 
computer can display players with pixels one scan 
line tall, but the one-line resolution requires twice 
the memory of the two-line mode. This 
demonstration uses the 2 line resolution in order to 
save memory. For our purposes, we will set up an 
8 x 10 matrix to design the player image (Figure 1 ). 



Figure 1, 
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If you look at Figure 1, you will notice numbers 
over each column in the matrix. These numbers 
range from 1 on the right to 128 on the left. These 
numbers will be used to create a DATA statement 
that will represent a player image. 

Figure 2. 
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Figure 2 shows the simple player image used in 
the demonstration program following this article. 
The number to the right of each row is the total of the 
column numbers in which a pixel is "on." If all pixels 
in a row are on, the number is 255 (128+64+32+ 
16+8+4+2+1). If no pixels are on, the total would 
be zero. You will note that the player image in figure 
2 is seven pixels tall, meaning that in order to display 
this player image we will have to move seven bytes to 
player memory. Try designing your own player 
images using this method. Remember that players 
using the two-line resolution mode can be up to 128 
pixels tall. 

The program. 

Once you have designed your player images, you 
are ready to display them with the computer. The 
BASIC program in Listing 1 will move all four 
players around on the screen. It calls the P/M 
movement assembly language routine, shown in 
Listing 2. 

As listed, the program will move the shape 
designed in Figure 2 around on the screen at random. 
The shape of the player is stored as a series of bytes in 
the string PO$. By placing your player image data in 
line 420, you can change the shape that appears on 
the screen. There are currently seven bytes in line 
420, but if your player image has a different number, 
place the appropriate value in lines 130 and 290. 
Lines 110- 180 — Set up the subroutine and 
turn on the P/M graphics. 

Lines 220-230 — are for demonstration 
purposes only. You can put your program code 
in this section. 

Line 110 — Loads the string PMMOV$ with 
the P/M movement subroutine. 

Line 130 — Places the data that defines the 
graphics image into the string P0$. If your 
player image is more or less than seven pixels 
tall, place the appropriate value in this line. 

Line 140 — This line tells the system where 
the P/M memory is located. 

Line 150 — This line saves the address of the 
string that holds the player image data. 

Line 170 — Turns on P/M direct memory 
access so that the image will appear on the 
screeen. 

Line 180 — Sets the color of player to 
blue. The value 136 is derived by multiplying 
the color number (8) by 16 and adding the 
luminance value (8). The result is (8* 16)+8 or 
136. 

Line 220 — Initializes the X and Y 
coordinates of the player. The coordinates refer 
to the upper left corner of the player. The X 
coordinate may range from 0-255, and the Y 
coordinate from 0-127. 

Lines 230-280 — This section simply 
changes the player's coordinates randomly. 



Line 290 — This USR call moves the player 
to the desired X and Y location. This statement 
has 7 parameters inside the USR parentheses: 

A^USRCMOUE^PMB^MD^Y,?) 

"MOVE" is set up in line 110. It is the 
address of the P/M mover subroutine. Do not 
change this value. 

"0" means that we want to move player zero. 
This value can range from 0-3, moving any one 
of the four players. 

"PMB" is the P/M base address set up in line 
150. Do not change this value. 

"PMD" is the address of the string that holds 
the player image data. This should be set to the 
address of the string you are using to hold your 
player shape data. If your player shape data is in 
a string called "PL$," you could replace PMD 
with ADR(PL$). 

The X and Y variables are the horizontal and 
vertical coordinates of the player. 

The last parameter, "7," indicates that the 
player we are displaying is 7 pixels tall (see lines 
130 and 420). If the player you design is 10 
bytes long, place a 10 here. 

Line 300 — This line determines when to 
randomly change the player's movement 
direction. If a random number is chosen that is 
greater than .95, a new direction is tried. 

Line 310 — This line loops back to line 240 
if no new direction is needed. 

Lines 350-380 — These lines contain the 
assembly-language code for the player 
movement subroutine. Do not change these 
lines, or the subroutine will probably not work. 

Line 420 — This line contains the values 
which represent the player image's shape. Place 
your image values here. 

Summary. 

The ATARI computer systems' player-missile 
graphics capabilities are actually very easy to use, 
given the proper tools. The subroutine presented 
here will help even the beginning ATARI 
programmer experience the wonders of player- 
missile graphics, d 



Listing 1. 

18 REM XXMXXXXXXXXXXXXXXXXXXXXXXXXXX 
28 REM * P/M MOVER SUBROUTINE DEMO * 
38 REM * * 

48 REM * BY TOM HUDSON * 
58 REM * * 

68 REM * A.H.A.L.O.G. COMPUTING * 
78 REM KXXXXXKXXKKXKKXXKXKKKXKXXKXXX 
88 REM 

38 REM * «KXXMXXXXX SETUP xxxxxxxxxxx 
188 REM 

118 DIM PMMOUSCiee3,P8SC38) :MOUE=ADRCP 
MM0V$J:F0R X=l TO 188: READ N:PMMOV$CXJ 
=CHR$CHJ :NEXT X : REM *READ ML DATA* 
128 REM *** NOW READ SHAPE DATA *** 
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138 FOR H=i TO 7:READ N :P8$ CKJ =CHR$ (N) 
; NEXT H 

140 PMBASE^INT C (PEEK (145J +3J /4J »4 : POKE 
54275, PM8ASE:REM **# SET UP P/M AREA 

ISO PMB=PMBASE*256 

168 PMD=ADR(P8$J -.REM *** P/M DATA ADDR 

ESS *** 

178 POKE 559,46:P0KE 53277, 3 : REM *** p 

/M DMA *** 

188 POKE 784,136:REM *** PLAYER COLO 

R *** 

190 REM 

288 REM MMKX YOUR PROGRAM HERE" **** 

218 REM 

228 X=128:Y=64 

238 XI-l-IKTtRND(83*3) : YI=1-INT (RHD (81 

*3) 

248 X=X+XI:Y=Y+YI 

258 IF X<58 THEM X=58 : GOTO 278 

268 IF X>198 THEM X = 198 

278 IF Y<28 THEN Y=28:G0T0 298 

288 IF Y>118 THEN Y = 118 

298 A=USR(M0gE,8,PMB,PMD,H,Y,7J 

388 IF RND(81>8.95 THEN 230 

318 GOTO 248 

320 REM 

330 REM **# PM MOVER DATA *** 

340 REM 

358 DATA 216,184,184,184,133,213,184,2 

4,185,2,133,206,184,133,285,184,133,28 

4,184,133,283,184,184,133,288 

368 DATA 164,184,133,289,184,184,24,18 

1,209,133.287,166,213,248,16,165,285,2 

4,105,128,133,285,165,286,185 

378 DATA 8,133,286,282,288,248,168,8,1 

62,0,196,289,144,19,196,207,176,15,132 

,212,138,168,177,283,164 

388 DATA 212,145,285,232,169,8,248,4,1 

69,0,145,205.208,192,128,288,224,166,2 

13,165,208.157,0,288,96 

390 REM 

488 REM «** PLAYER IMAGE DATA *** 

410 REM 

420 DATA 255,129,129,231,129,129,255 



CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 532,930,996,64,8.483,544,265,9 

09,74,765,328,743,901.536,8878 

168 DATA 729,778.445,101,552,79.854.96 

8,479,928,983,921,954,424.374,9561 

318 DATA 784,84,588,98,639.732,435,188 

,105,191,83,56,3887 



Listing 


2. 


Si 

Si IS ;PLAYER-M!SSILE HOME? 


SUBROUTINE 


6126 ; 




8136 :8< TOM HUDSON 




8MD jA.N.A.L.O.G. COMPUTI 


m 


8158 ■ 




8166 ; 




8178 ;Ph6E ZERO USAGE 




8180 ; 




0198 FMSTR = KB 


;p/M basic string 


8286 PLADR = $CD 


FLAYER ADDRESS 


82! 8 PMEND - $Cf 


; PLAYER IMAGE END 


8228 XPOS = 308 


;X POSITION 


0238 VPOS = $0! 


;Y POSITION 


8246 HOLD = 3D4 


jHOLD AREA 


8258 PLNIJM = $05 


; PLAYER i TO MOVE 



8278 


jOPERATlNG SYSTEM EQUA1 


IS 


8286 


i 




0298 


HP0SP8 = $0008 




8388 


i 




8318 


; PROGRAM STARTS HERE! 




3328 


J 




8338 


*= $6808 


ANY ADDRESS 


8348 


START CLD 


CLEAR DECIMAL MODE 


8358 


PLA 


DISCARD 


8366 


PLA 


DISCARD ft HI 


8378 


PLA 


PULL PLAYER * LO 


8388 


STA PLNUH 


AND SAVE IT! 


8398 


PLA 


PULL P/M BASE HI 


6468 


CLC 


ADD OFFSET TO GET 


0418 


ADC H2 


PLAYER MEMORY ADDR 


6426 


STA PLADR+1 


AND SAME! 


8436 


PLA 


PULL P/M BASE LO 


0446 


STA PLADR 


AND SAVE' 


8456 


PLA 


PULL STRING HI 


6468 


STA PMSTR+1 


AND SAVE 1 


8476 


PLA 


PULL STRING LO 


6488 


STA PMSTR 


AND SAVE 1 


8498 


PLA 


DISCARD X HI 


6566 


PLA 


PULL X LO 


0518 


STA XPOS 


AND SAVE IT 1 


8526 


PLA 


DISCARD Y HI 


8538 


PLA 


PULL Y LO 


8546 


STA YPOS 


AND SAME IT! 


8558 


PLA 


DISCARD LENGTH HI 


8566 


PLA 


PULL LENGTH LO 


8578 


CLC 


ADD Y POSITION 


8586 


ADC YPOS 


TO GET END 


8598 


STA PMEND 


AND SAVE IT 1 


8666 


LDX PLNUH 


GET PLAYER* 


0618 


BEG ENDCAL 


NO INDEX NEEDED! 


8626 


PLCALC LDA PLADR 


ADD 128 TO 


0638 


CLC 


PLAYER 


8646 


ADC #128 


ADDRESS 


0658 


STA PLADR 


TO 


6666 


LDA P LADR+I 


POINT TO 


8678 


aoc m 


NEXT 


8686 


STA PLADR+1 


Player. 


8698 


DEX 


ANOTHER ADJUSTMENT 


8786 


BNE PLCALC 


YES! 


0718 


ENDCAL LDY W 


ZERO P/M COUNT 


8726 


ldx m 


ZERO STRING COUNT 


0738 


COPYLP CPY YPOS 


COPYING DATA YET' 


6746 


BCC ZERO 


NO 1 


8758 


CPY PMEND 


FINISHED COPYING- 


8766 


BCS ZERO 


YES ' 


0776 


STY HOLD 


SAVE Y REG- 


8788 


TXfi 


MOVE X REG... 


8798 


TAY 


TO Y REGISTER 


6886 


LPA (PHSTR) ,Y 


GET P/M BYTE 


0818 


LDY HOLD 


GET P/M OFFSET 


8826 


STfi (PLADR), Y 


CHANGE PLAYER : 


8838 


INX 


NEXT STRING BYTE, 


0846 


lda m 


FORCE BRANCH 


8858 


BEQ NEXT 


TO NEXT BYTE 1 


0866 


ZERO LDA U 


ZERO OUT... 


0878 


STA (PLADR) ,Y 


PLAYER BYTE! 


6886 


NEXT IN* 


NEXT P/M BYTE 


0898 


CPY #123 


DONE W/COPY? 


6986 


BNE COPYLP 


NOT DONE YEP 


8918 


LDX PLNIJM 


6E T PLAYER * 


6926 


LDA XPOS 


NOW JUST SET 


0938 


STA HP0SP6,X 


X LOCATION 1 


8946 


RTS 


FINIS 1 


0958 


.END 





8266 
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USING OLIs 



16K Cassette or Disk 



by Joseph T. Trem 



For many years there have been powerful com- 
puters on the market which performed multi-tasking 
functions. Not until a few years ago did the home 
computer acquire this capability. At last! ATARI! 

Having a 6502 microprocessor for its brain, your 
ATARI computer has the capability of using inter- 
rupts. An interrupt is a tricky way of freezing the 
state of the microprocessor while performing some 
other function, then moving on when completed. 

Here is an example. On a raster scan TV, the 
picture you see is drawn sixty times a second. The 
beam starts in the upper left-hand corner and even- 
tually ends up in the lower right-hand corner. This is 
done sixty times a second. The time taken for the 
beam to travel from the bottom of the screen back to 
the top is called vertical blank. During vertical blank, 
there is plenty of time for other processing. Using an 
interrupt, one could check for vertical blank. When 
vertical blank occurs, it is possible to perform some- 
other function, then continue on. Some of the more 
common functions would be moving player/mis- 
siles, updating score counters, changing colors . . .all 
between Vblank, as it is more commonly called. If 
these functions are performed during Vblank, there 
is no unsightly flicker on the screen. Besides, Vblank 
is processing time to kill, right? 

ATARI goes a step further by implementing a dis- 
play list interrupt or DLL On a raster scan TV, the 
beam sweeps across the screen, from left to right, 
moves down one line, then does it again. One sweep 
of the beam is one scan line. It takes 262 sweeps of 
that beam to create a single frame on your TV, all 
done sixty times a second. In other words, there are 
262 scan lines available on your TV. 

ATARI designed their computer to evolve around 
the architecture of your TV set. Even better, the dis- 



play list uses all combinations of the scan line from 
graphics to graphics 8 and allows you to set up a 
DLI on any line. For example, one could draw a scan 
line, change the background color, and so on. The 
final picture will appear to have a different color on 
each line. 

To set up a DLI, there are a few steps which have to 
be taken. First, we have to create a DLI routine in 
machine language that will do what we want. This is 
called a service routine. Then we must let the micro- 
processor know where to find that routine by vec- 
toring through $200 (low byte) and $201 (high 
byte). That's 512 and 513 decimal. Next, we set the 
display list lines that we want the service routine to 
occur after with a DLI instruction. Finally, we must 
enable the DLI. 

Because the concept of the DLI is a hard one to fol- 
low and needs some understanding of Assembly lan- 
guage, I have presented an example. . .a picture is 
worth a thousand words! This program, written in 
BASIC, twinkles a starfield while running player/ 
missiles. . .both appearing independent of one 
another. 

The program is well documented. In the example, 
the service routine is located at $600. Every display 
list line has been set in the graphics 7 mode with a 
DLI instruction (Figure 1 ). This was determined by 
using the chart in Figure 2. The DLI instruction for 
graphics 7 is 141 decimal. Included with the BASIC 
program is the assembled listing of the service rou- 
tine which simply stuffs colors in the color register. 

Hopefully, this program will help you gain a better 
understanding of the DLI. It is among the most 
powerful programming tools you can use. Take some 
time to understand the concept, and you will greatly 
increase your programming expertise. □ 
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Stan 


dard Graphics 7 


NewG 


raphics 7 Display 




Display 


List 


List 


with DLI Set 


70 


8 Blan 


k lines 


70 


8 Blank lines 


70 


8 Blan 


,k lines 


70 


8 Blank lines 


70 


8 Blar 


ik lines 


70 


8 Blank lines 


4D 


Antic 


Mode 13 


4D 


Antic Mode 13 




(Basic 


mode 7) 




(Basic mode 7) 


60 






60 




70 






70 




0D 






8D 


Antic Mode 13 
with DLI set 


0D 






8D 




OD 






8D 




OD 






8D 




OD 






8D 





Figure 1. 



Display List Interrupt 


Instruction 


Chart 


Graphics Mode 




DLI Instruction 


Basic Antic 




Hex 


Decimal 


$02 




$82 


130 


None $03 




$83 


131 


None $04 




$84 


132 


None $05 




$85 


133 


1 $06 




$86 


134 


2 $07 




$87 


135 


3 $08 




$88 


136 


4 $09 




$89 


137 


5 $0A 




$8A 


138 


6 $0B 




$8B 


139 


None $0C 




$8C 


140 


7 $0D 




$8D 


141 


None $0E 




$8E 


— 


8 $0F 




$8F 


143 




Figure 


2. 





190 REM FLICKERING STARFIELD 

110 REM BY JOE TREM CO 1982 

120 REM 

130 REM SETS GRAPHICS 7 FULL SCREEN, D 

RAMS SURFACE MITH SOUND 

140 GRAPHICS 23: POKE 788, 136 : COLOR 1:F 

OR K=0 TO 159: SOUND 0, 10, K, 4 : PLOT X,95 

:DRAHTO X, 8G+RND (85*5 : NEXT X 

150 REM CALCULATES DISPLAY LIST, SETS 

SPEED OF PLAYER TO 

160 5P=0:DL5T=PEEKC560J+PEEKC561)*256 

170 REM SETS UP DLI FOR EACH GRAPHICS 

7 SCAN LINE 

180 FOR L=6 TO 84:P0KE DLST+L, 141 : NEXT 

L 
190 REM READS MACHINE LANGUAGE ROUTINE 

INTO PAGE 6 
200 FOR J=0 TO 3: READ A : POKE 1536+ J, A: 
NEXT J 

210 COLOR 3: REM SETS COLOR TO FLICKER 
220 REM PLOTS STARS MITH SOUND 
230 FOR X=l TO 50:S0UND 9,X,X,4:PL0T R 
NDt0)*159,RND(O)*75:NEXT X 
248 REM SETS STARTING ADDRESS FOR DLI 
CPAGE 6) AND ENABLES DLI 



258 POKE 512,0:P0KE 513,6:P0KE 54286,1 

92 

268 REM SETS UP PLAYER/MISSILE 8 

278 YP=8:P0KE 559,62:PMBAS=PEEK(106)-3 

2:P0KE 54279, PMBAS: POKE 53277, 3 :PM0=PM 

BA5*256+1024 

288 GOSUB 350 

290 REM PLAYER/MISSILE COLOR, MOVE RIG 

HT 

388 P6KE 784,INTtRNDC8)*151*16+8:F0R X 

=38 TO 238 STEP SP:P8KE 53248, X : SOUND 

8,X,8,4:NEXT X 

318 GOSUB 350 

320 REM PLAYER/MISSILE COLOR, MOVE LEF 

T 

330 POKE 704,INTCRNDC8)*15)*16+8:F8R X 

=230 TO 38 STEP -SP:POKE 53248, X : SOUND 

8,X,8,8:NEXT X:GOTO 288 
340 REM ROUTINE ERASES OLD PLAYER, DET 
ERMINES SPEED, AND UERTICAL LOCATION 
F PLAYER 

358 5P=SP+l:F0R X=YP TO YP+4:P0KE PM8+ 
X,8:NEXT X:IF 5P>15 THEN 5P=1 
368 YP=38+RNDC8)*158:P0KE PM8+YP,24:P0 
KE PMO+YP+1, 255: POKE PM8+YP+2, 255: POKE 

PMO+YP+3, 24: RETURN 
370 REM MACHINE LANGUAGE DATA 
388 DATA 142,24,288,64 

390 REM NOTE T6 ASSEMBLY PROGRAMMERS.. 
HSYNC MAS NOT USED FOR MORE ERRATIC FL 
ICKERING 



CHECKSUM DATA 

(See pgs. 7-10) 



188 DATA 198,749,88,569,86,188,793,712 

,498,713,519,482,263,294,178,6226 

250 DATA 994,486,125,998,763,168,971,4 

16,696,888,181,59,947,793,791,9188 



Assembly listing. 



0188 
8110 
0120 
8130 
8146 
8150 
0160 
0170 
8180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 



j FLICKERING STARFIELD 
; DLI SERVICE ROUTINE 

; ADDRESS SD818 IS THE 

; COLOR/LUMINANCE REGISTER 

; OF PLAYFIELD 2 

C0LPF2 = SD018 

'*=$6ee 

j SAVE WHATEVER IS IN THE 
; X-REGISTER INTO PLAYFIELD 
; COLOR 2 HARDMARE REGISTER 

'STX C0LPF2 ; STORE COLOR 
RTI ; RETURN FROM INTERRUPT 

' .END 
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A GRAPHICS 
CLIPPING ROUTINE 



16K Cassette or Disk 



by Tom Hudson 



Probably every ATARI user who has ever dabbled 
in the graphics area has encountered the infamous 
"ERROR 141 — CURSOR OUT OF RANGE." 
This error message occurs when you try to PLOT or 
DRAWTO a point which is off the screen. The 
program listings presented in this article will 
demonstrate a BASIC subroutine which eliminates 
this problem, while drawing the portion of the line 
which is on the screen. 

Listing 1 is the clipping routine. Type in this sub- 
routine and check it for typing errors. List this onto 
tape (LIST "C:") or disk (LIST "D:filenam), so 
that it can be easily merged with other programs. 

Listing 2 is a demonstration of the clipping 
routine's capabilities. This program is a general- 
purpose shape rotation routine and will be explained 
in detail later. Type NEW and enter this listing into 
your computer, then check it for typing errors. 

When you are sure Listing 2 has been entered 
correctly, ENTER the clipping routine from tape 
(ENTER "C:") or disk (ENTER "D:filename"). 
The two listings will merge, forming one program. 
RUN the program. You will see a square appear. It 
will begin rotating and increase in size until its 
corners run off the screen completely, and it 
disappears altogether. Press BREAK to stop the 
program. 

How it works. 

Line 150 — This line sets the BASIC 
DEGREE flag. This tells the computer that all 
angles will be expressed in degrees. 

Line 160 — This line sets up a full-screen 
GRAPHICS 6 screen. 

Line 170 — This line tells the computer to 
use color 1 when drawing. 

Line 180 — This line sets the shape size 
increment (SI) to 1.1. This means that each time 
the shape is drawn, it will be 1 . 1 times as large as 
the previous plot. If SI is set to 1, the shape will 
stay the same size. If SI is set to 0.5, the shape 
will shrink to half its size each time it is drawn. 



Line 190 — This line establishes the initial 
size of the shape. Since SF is set at 0.5, the object 
will start out half as big as defined. 

Line 200 — This line sets RF, the rotation 
factor, to 10. With this value, the shape will 
rotate 10 degrees counter-clockwise each time it 
is drawn. A negative value will rotate it 
clockwise, and a value of zero will result in a 
non-rotating shape. 

Line 210 — This line defines CX and CY, the 
center coordinates of the object. The present 
values will place the object at the center of the 
screen. Try other values here and observe the 
results. 

Line 220 — This line is essential to the 
operation of the clipping routine. It defines the 
limits of the screen area you wish to use. These 
values are currently set to the normal 
GRAPHICS 6 screen limits (X RIGHT=159, X 
LEFT=0, Y BOTTOM=95, Y TOP=0). By 
changing these values, a smaller "window" may 
be created. For example, make the following 
changes to line 220: 

228 KR=8e:HL=4e:YB=58:VT=30 

RUN the program and observe the result. 
The shape will be clipped to the new window 
limits. By using this technique, very interesting 
displays can be created with independent 
clipping windows! 

Line 230 — This line sets the DATA pointer 
to line 360. This line contains the data which 
defines the shape of the object. 

Line 240 — This line reads the number of 
points in the shape and dimensions X and Y 
coordinate work arrays accordingly. 

Line 250 — This line reads the X and Y 
coordinates of each point in the shape and scales 
them as requested in line 190. 

Lines 260-270 — These lines increment the 
rotational position of the object. Rotation 
values greater than 360 degrees are adjusted 
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properly. 

Line 280 — This line adjusts the size of the 
shape as requested in line 180. 

Lines 290-300 — These lines rotate each 
point in the shape using the BASIC functions 
SIN and COS (sine and cosine). The adjusted 
points are stored in the X2 and Y2 arrays. 

Line 310 — This line clears the screen for the 
next plot. If this line is removed, the images of 
the rotating square will build up into an 
interesting display. 

Line 320 — This line adjusts each point in 
the shape to its proper screen position hy 
adding the centerpoint coordinates (defined in 
line 210). 

Lines 330-340 — These lines are very 
important, as they send the PLOT AND 
DRA WTO coordinates to the clipping routine. 
The clipping routine requires four variables: 
XI, Yl, X2 and Y2. The routine analyzes the 
coordinates and simulates the function: 
PLOT XI,YI:DRAWT0 X2,Y2 

To see what happens when the clipping 
routine is not used, replace the GOSUB 1000 
statements in lines 330 and 340 with PLOT X 1 , 
Yl: DRAWTO X2, Y2 and RUN the program. 
The program will operate correctly until the 
square runs off the screen. When this happens, 
the program will end with an error condition. 

Line 350 — This line simply loops back to 
line 260, where the drawing process starts again. 

Line 360 — This DATA statement contains 
information about the shape we want to draw. 
The first number is the number of points in the 
object. Since this is a square we are using, there 
are 4 points. The rest of the data values are the X 
and Y coordinate pairs for each point. To make 
a hexagon, for example, try this data statement: 

DATA 6,11,0,6,-10,-6,-10,-11,0,-6,10,6,10 
Figure 1 is an X-Y coordinate grid which is helpful 
in defining a shape. The shape rotates around the 
intersection of the X and Y axes (0,0) which in this 
case is the center of the square. You can set up any 
shape you like merely by changing this DATA line. 
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Figure 1. 



The clipping routine. 

Line 1050 — This line clears all the flags 
which determine when clipping is necessary. 

Lines 1060- 1130 — These lines check the X 
and Y coordinates to see if they have exceeded 
the screen limits defined in line 220 of the shape 
rotation demonstration. If the coordinates 
exceed the limits, flag variables are set to 
indicate this. 

Line 1 140 — If both X coordinates are to the 
left or right of the screen, or both Y coordinates 
are to the top or bottom of the screen, the line 
will not show up on the screen at all, and the 
plot is abandoned. 

Line 1150 — This line sets up work 
variables to clip one end of the line, if necessary, 
and GOSUBs to line 1210 to perform this 
function. 

Line 1160 — In order to clip the other end 
of the line, this line copies the second set of 
coordinate flags to the first. 

Line 1170 — This line saves the XW and 
YW values, which are the last set of clipped 
endpoints. It then sends the X and Y endpoints 
to the clipping calculator and clips the other end 
of the line. 

Line 1180 — If any of the clipped points 
could not be placed within the clipping area, 
the plot is abandoned. 

Line 1190 — This line PLOTs and DRAWs 
the clipped line. 

Line 1200 — This line exits the clipping 
routine after the clipped line is drawn. 

Line 1210 — This line is the start of the 
clipping calculator, the heart of the clipping 
routine. If the total of the clipping off-screen 
flags is zero, no clipping is required. The XW 
and YW values are set up, and the clipping 
routine is exited. 

Line 1220 — If the line goes past the left side 
of the screen, this line calculates the point at 
which the line crosses the left limit, and saves 
the X and Y coordinates of that point. If this 
point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1230 — If the line goes past the right 
side of the screen, this line calculates the point 
at which the line crosses the right limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation 
is complete and the subroutine is exited. 

Line 1240 — If the line goes past the bottom 
of the screen, this line calculates the point at 
which the line crosses the bottom limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1250 — If the line goes past the top of 
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the screen, this line calculates the point at which 
the line crosses the top limit, and saves the X 
and Y coordinates of that point. If this point is 
on the screen then the calculation is complete 
and the subroutine is exited. 

Line 1260 — This line forces a return from 
the subroutine after all calculations are 
complete. 

Final comments. 

The graphics clipping routine can be used in many 
graphics applications where it is possible to exceed 
screen limits. This routine can be used with any 
graphics mode, and can allow the use of graphics 
"windows" anywhere on the screen. 

To use the clipping routine in your own programs, 
simply use lines 1000-1260 and set up the desired 
screen limits to the XL, XR, YT, and YB variables. 
When you want to draw a line, instead of the 
command: 

PLOT X1,Y1;DRAWT0 K2,Y2 

use the following: 

(Set up XI, Yl, X2, and Y2) 
GOSUB 1000 
This will work for any line, even those that are 
completely off the screen. □ 



Listing 1. 

188 REM MKXMMMXMMICHMXMMMMMKXXMM 
118 REM * SHAPE ROTATION DEMO * 
128 REM * * 

138 REM * BY TOM HUDSON * 
148 REM XXXXXXXXXXXXXXXXXXXXXXX 

158 DEG 

168 GRAPHICS 6+16 

178 COLOR 1 

188 51=1.1 

198 SF=8.5 

288 RF=18 

218 CK=88:CY=48 

228 XR=i59:XL=8:YB=95:YT=0 

238 RESTORE 368 

248 READ N : DIM X fN3 , Y CN) , X2 fH) , Y2 fN) 

258 FOR X=l TO N:READ Ml , W2 : X CX3 =W1*SF 

:YtX)=W2»5F:NEXT X 

268 RW=RW+RF:IF RW>368 THEN RW=RW-368 ! 

GOTO 32767 

278 IF RM<8 THEN RM=RM+368 

288 FOR X=l TO N : X (XJ =X (X)#5I : Y (X)=Y fX 

5*5I'NEXT X 

298 FOR X=l TO N : X2 f X3 =X (X)#COS CRWJ +Y C 

X)*SIHCRM) 

388 Y2tX3=-XtXl*SINCRM)+Y(X3*C0SCRW5 ;N 

EXT X 

318 GRAPHICS 6+16 

328 FOR X=l TO N : X2 fX3 =X2 tXJ + CX : Y2 (XI = 

Y2fX)+CY:NEXT X 

338 FOR X=l TO N-l : X1 = X2 IX) : Y1=Y2 fX) :X 

2=X2(X+1) :Y2=Y2CX+1) :G05UB 1808:NEXT X 

348 Xi=X2tNJ :YirY2CN> :X2=X2fl) :Y2=Y2C1 

} :G0SUB 1888 

358 GOTO 268 

368 DATA 4,18,18,18,-18,-18,-18,-18,18 



Listing 2. 



1888 REM JHBBBHfrittt XXMMMMXXXXXXXXXXXXXXX 

1818 REM * GRAPHICS CLIPPING ROUTINE « 

1828 REM * * 

1838 REM * BY TOM HUDSON * 

1848 REM XXXXXXXXXXMXMXXXXXXXXXXXXXXXX 

1858 L1=8:L2=8:R1=8:R2=8:T1=8:T2=8:B1= 

8:B2=8 

1868 IF XKXL THEN LI = 1:G0T0 1888 

1878 IF X1>XR THEN Rl=l 

1888 IF Y1>YB THEN B1=1:G0T0 1188 

1898 IF YKYT THEN Tl-1 

1188 IF X2<XL THEN L2=1:G0T0 1128 

1118 IF X2>XR THEN R2=l 

1128 IF Y2>YB THEN B2=1:G0T0 1148 

1138 IF Y2<YT THEN T2=l 

1148 IF Ll+L2=2 OR Rl+R2=2 OR Tl+T2=2 

OR Bl+B2=2 THEN RETURN 

1158 X3=Xl:Y3=Yl:X4=X2:Y4=Y2:G05UB 121 



116© L1=L2:R1=R2:T1=T2:B1=B2 

1170 X1=XW: Yl^YW: X3=X2 : Y3=Y2 : X4=X1 : Y4= 

Y1:G05UB 1218 

1180 IF XKXL OR X1>XR OR Y1<YT OR Yi> 

YB OR XW<XL OR XW>XR OR YW<YT OR YM>YB 

THEN RETURN 
1198 PLOT Xl,Yl:DRAHTO XM,YW 
1288 RETURN 

1210 IF L1+T1+B1+R1=8 THEN XW=X3 : YW=Y3 
• Rff T(|RH 

1220 IF LI THEN XW=XL : YM=Y3+ (Y4-Y33* tX 
L-X3)/tX4-X3) :X3=XM:Y3=YH:IF Y3>=YT AN 
D Y3<~YB THEN RETURN 

1230 IF Rl THEN XW=XR : YM=Y3+ CY4-Y3)*CX 
R-X3J/CX4-X3) :X3=XH:Y3rYM:IF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1240 IF Bl THEN YW=YB : XW=X3+ CX4-X3)* tY 
B-Y3J/CY4-Y3) : X3=XM: Y3=YH: IF X3>=XR AN 
D X3<=XL THEN RETURN 

1250 IF Tl THEN YW=YT : XW=X3+ (X4-X3)*CY 
T-Y3)/tY4-Y3) : X3=XW: Y3=YH: IF X3>=XR AN 
D X3<=XL THEN RETURN 
1268 RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

1880 DATA 598,934,68,54,682,235,68,814 

,6,822,52,814,18,822,688,6587 

1158 DATA 879,618,493,947,81,785,168,9 

28,947,905,960,791,8494 



CHECKSUM DATA 

(See pgs. 7-10) 

180 DATA 274,394,868,852,286,35,223,49 

2,578,583,299,36,472,282,715,6301 

258 DATA 317,285,346,819,167,988,212,4 

98,135,523,722,951,5955 
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3-D GRAPHS 
MADE FAST & EASY 



16K Cassette or Disk 



by Tom Hudson 



Thanks to ATARI's Graph-It (TM) graphics 
package, ATARI computer owners can generate bar 
charts, pie graphs, and two- and three-dimensional 
plots. Unfortunately, when more complex three- 
dimensional plots are desired, Graph-It can take 
more than an hour to complete just one plot! 

In order to assist those Graph-It users who 
would like to see a quick rendition of their 3-D plot 
before committing themselves to a marathon wait 
with Graph-It, I have written a 3-D graph program 
which is easy to use and produces graphs very 
quickly. 

By now, many readers are probably asking, "What 
in the world is a 3-D graph?" which is not a bad 
question at this point, and one I will try to answer. 

We are all familiar with 2-dimensional (flat) 
graphs. They are usually called "line" or "bar" 
graphs. Figure 1 is a line graph of the equation 
Y=2*X. When X is four, Y is two times four, or 
eight, and so on. 

Figure 1. 




In a 3-dimensional graph, things are a little more 
complicated. As the name implies, we are trying to 
generate a 3-dimensional form, derived from an 
equation. To do this, we need three coordinates. We 
will label these coordinates X (width), Y (depth) and 
Z (height). 
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Figure 2. 

We start with a grid marked with X and Y 
coordinates, then we lay this grid flat as in Figure 2 
(a good way to visualize this is to lay a piece of graph 
paper on a table in front of you). Next we use an 
equation to determine the Z coordinate. The Z value 
tells how high off the table each point on the grid is. 
The Z coordinate is always derived from the X and Y 
values. In this way, we can see how changes in the X 
and Y values affect the Z value. For example, in the 
equation Z=(X+Y)*3, when we are at the 
coordinates X=l and Y=3, Z would equal 12 (4 
times 3). On our graph, this would be represented as 
a small peak (Figure 3), telling us that where X=l 
and Y=3, the Z value is 12. Of course, to be useful 
this process must be repeated for each point on the 
grid so that we can see the overall results. Three- 
dimensional graphs are useful for visualizing how an 
equation will act with varying X and Y values. 
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Figure 3 

Listing 1 is a simple but effective 3-dimensional 
graph generation program. It is NOT meant as a 
replacement for the Graph-It 3-D plot program, 
but an enhancement. 

Type Listing 1 into your computer and check it 
for accuracy. When the program is correctly entered, 
you will be ready to start graphing in three 
dimensions! 

Let's say you want a 3-D plot of a complex 
equation. You don't know what it will look like, but 
you'd like to get some idea before you wait an hour 
for Graph-It to process it. With this program, you 
can "preview" a 3-D graph, and if you want a 
detailed copy, the same equation can be processed by 
Graph-It. An equation requiring 70 minutes on 
Graph-It can be processed by this program in five. 
Of course, the Graph-It version is much smoother 
and will do such things as automatic scaling, but if 
you need the output quickly, this program can do it. 

Let's find out what the equation Z=(X-Y)" looks 
like. Line 220 is where all equations must be 
executed, so change line 220 to read: 
220 Z=CH-YJ A 2 

When the line is changed, RUN the program. The 
screen will go black for several seconds while the 
computer calculates the plot coordinates of the 
graph. When these calculations are finished, the 
screen will come back on, and the graph will be 
drawn. It's that simple. 

How it works. 

Line 80 — Set up the arrays needed to store 
the plot points. 

Line 120 — Turn off the system's Direct 
Memory Access (DMA). This speeds up 
calculations considerably. The only unpleasant 
side effect is that the screen goes black until 
DMA is turned on again. 

Line 160 — Set the screen limits for the 
graphics clipping routine (see lines 600-720). 

Lines 210-230 — This is a FOR-NEXT loop 
for calculating the Z value for each point on the 
grid. Line 220 is where your equation should be 
placed. Just replace the existing equation with 



your own, starting with Z=. The program will 
do the rest. 

Lines 270-300 — After all the Z values have 
been calculated, this section changes them to 
plot coordinates so that they can be placed on 
the screen. 

Line 340 — This line turns DMA on again, 
so that we can see the graph. 

Line 380 — This line draws the "zero 
reference" outline. This is simply the outline of 
the grid before the Z coordinates were 
calculated. It lets you know where zero is, 
relative to the rest of the points on the grid. 

Lines 420-430 — This section actually 
draws the grid on the screen using the data in the 
GX and GY arrays, which were built in lines 
270-300. It uses the graphics clipping routine in 
lines 600-720 just in case the lines run off the 
top or bottom of the screen. 

Lines 470-500 — These lines draw the 
vertical lines from the baseline to the corners of 
the graph. 

Line 540 — This line loops the program 
forever. Hit the break key to stop the program. 

Line 600-720 — This is a modified graphics 
clipping routine. (See A Graphics Clipping 
Routine, page 44). It is modified to only clip 
lines that extend beyond the top and bottom 
of the screen, not the sides. 

You can try any equation you like in line 220, 
just set Z to the result. Included below are a few 
interesting equations for you to try, along with 
the time required to generate the graphs. Simply 
replace line 220 with one of these equations. □ 



228 Z=SIN((X+Y-4)/4*38)+38 
(Requires approx. 38 seconds) 



228 Z=SQR (flBS CX-J.8 . 5 J *2+ABS <Y-5 . 5) *2> A 

1.7 

(Requires approx. 2.25 Minutes) 



228 Z- C1/S0R (S0R (PBS (K-18 . 5) A2+ABS CY~5 

. 5) *2) +4) A2)*888-58 

(Requires approx. 2.75 Minutes) 



228 Z=78-5QR (ABS (K-18 . 5) *2+ABS <V-5 . 5) * 

2)*1.7 

(Requires approx. 2.3 Minutes) 



228 Z=(SIIf(X/lB)+C0S(Y/5))*38 
(Requires approx. 48 seconds) 



228 Z=(5IN(X/ie)*SIN(Y/5>)*38 
(requires approx. 48 seconds) 



10 REM MKMXKXMXX *H*tt«-X««**-**-Ktt ttXXKXXXXK 

20 REM # 3-D GRAPH PROGRAM # 

38 REM * * 

40 REM K BY TOM HUDSON * 

50 REM XMXXXXXXXXMXXXXXXXXXXMXXXXXXXXX 

60 REM 
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78 GRAPHICS 24:5ETC0L0R 2,0,0:COLOR i 

80 DIM GXC21,II3,GYC21,113 

90 REM 

190 REM *** DMA OFF *** 

110 REM 

120 POKE 559,8 

138 REM 

140 REM **# 5ET CLIPPING LIMITS *** 

150 REM 

160 XR=319:XL=O:YT=0:YB=191 

170 REM 

180 REM *** YOUR FORMULA GOES **# 

190 REM *** INSIDE THIS LOOP *** 

280 REM 

210 FOR X = l TO 21:F0R Y=l TO 11 

220 Z=CH+Y3*3 

230 GYCX,Y3=Z:NEXT Y:NEXT X 

240 REM 

258 REM *** CALC. SCREEN COORDS. *** 

260 REM 

270 FOR X = l TO 2HF0R Y = l TO 11 

280 GXCX,Y3=CX-13*10+CY-13*I0 

290 GYCX,Y3=180-CY-1J*10-GYCX,Y3 

30O NEXT YlNEXT X 

310 REM 

320 REM *** DMA ON AGAIN *** 

330 REM 

340 POKE 559,34 

358 REM 

360 REM *** DRAW BASELINE «*» 

370 REM 

388 PLOT 0,18© .DRAMTO 280 , 180 : DRAMTO 3 

6O,80:DRAMTO 188, 88 : DRAMTO 8,188 

390 REM 

408 REM *** PLOT THE GRAPH *** 

418 REM 

428 FOR X=l TO 2UF0R Y=2 TO 11:X1=GX( 

X,Y-I3 :Y1=GYCX,Y~I3 :X2=GXCX,Y3 :Y2=GYCX 

,Y3:G05UB 680:NEXT Y.'NEXT X 

438 FOR Y=l TO 11:F0R X=2 TO 2i:XI~GXC 

X-1,Y3 :Y1=GY(X-1,Y3 :X2=GXCX,Y3 :Y2=GYCX 

,Y3:GQ5UB 680:NEXT X:NEXT Y 

440 REM 

450 REM *** DRAM UERTICAL LINES *** 

460 REM 

470 Xl=0:Yl=180:X2=GXtl,i) :Y2=GYC1,I3 : 

GOSUB 608 

488 X1=200:Y1=180;X2=GXC21,13 :Y2=GYC21 

,13 : GOSUB 680 

490 X1=300:Y1=80:X2=GXC21,113 :Y2=GYC21 

,113 : GOSUB 600 

580 X1=100:Y1=80:X2=GXC1,113 :Y2=GY(1,1 

13 : GOSUB 600 

510 REM 

520 REM *** LOOP FOREyER *** 

530 REM 

548 GOTO 540 

550 REM 

570 REM * GRAPHI CS CLIP ROUTINE * 

590 REM 

688 T1=8:T2=8:B1=8:B2=8:IF Y1<YT THEN 

Tl=l:GOTO 628 

618 IF Y1>YB THEN Bl=i 

620 IF Y2<YT THEN T2=1:G0T0 640 

630 IF Y2>YB THEN B2=I 

640 IF Ti+T2=2 OR Bl+B2=2 THEN RETURN 

650 X3=X1:Y3=Y1:X4=X2:Y4=Y2: GOSUB 690 

660 T1=T2 : B1=B2 :Xi=XW: Y1=YW: X3=X2 : Y3=Y 

2:X4=Kl: Y4=Y1 :G05UB 698 

670 IF YKYT OR Y1>Y8 OR YM<YT OR YW>Y 

B THEN RETURN 

680 PLOT Xl,Yl:DRAMTO XW.YM:RETURN 

690 IF T1+B1=8 THEN XW=X3 : YW=Y3 : RETURN 

788 IF Tl THEN YW=YT : XW=X3+ CX4~X33*CYT 

-Y33/CY4-Y33 : X3=XH: Y3=YM: RETURN 

718 IF Bl THEN YH=YB i XW=X3+ CX4X33*C YB 

-Y33/(Y4-Y33 : X3=XM: Y3=YW: RETURN 

728 RETURN 

CHECKSUM DATA 

(See pgs. 7-10) 

18 DATA 587,293,21,12,595.261,273,936, 
267,649,77,777,83,421,89,5341 



168 DATA 657.95,338,245.76,34.990,837, 

88,515,94,52,420,841,520,5802 

310 DATA 81,562.87,3,93,546,99,883,185 

,830,83,323,366,92,349,4582 

460 DATA 98.734,383,480,855,85,726,91, 

723,97,368,494,374,109,536,6073 

618 DATA 188,353,198,823,482.869,545,4 

8,298,732.573,599,5708 



Sphere Demo 



8 5IZ£=90:REN ***RADIU5**» 

9 CX=168:CY=96:REM **CENTER*# 

19 DEG :TIME=1 

20 GRAPHICS 24:SETC0L0R 2, 8,8 : SETCOLOR 
1,0,8:C0L0R 1 

25 PLOT CX+5IZE,CY:REM ***5TART*** 

38 FOR Y=98 TO 8 STEP -12 

48 FOR X=8 TO 360 STEP 12 

58 IF TIME=1 THEN X2=CX+SIZE*C05CX3 : Y2 

=CY- CSIZE*5IN CX3*SIN C Y3 3 : GOTO 68 

55 X2=CX-ISIZE*5INCX3#5INCY3 3 :Y2=CY+5I 

ZE*C0SCX3 

68 DRAMTO X2,Y2:NEXT XlNEXT Y 

98 TIME=TIME+l:IF TIME=2 THEN PLOT CX, 

CY+SIZE:GOTO 38 

188 SIZE=28+RND CI3*38 : CX=5IZE+1+ CRND CI 

3* (318- CSIZE*23 3 3 : CY=SIZE+1+ CRND C13*C1 

98-CSIZE*23 3 3 : GOSUB 1860 : TIME=1 : GOTO 2 

5 

918 REM #** ERASE HIDDEN LINES *** 

1800 COLOR 0:FOR X = TO 90 STEP 8.5 

1818 X2=5IZE*C0SCX3 : Y2=SIZE*5IN CX3 

1828 PLOT CX+X2,CY+Y2:DRAMT0 CX~X2,CY+ 

Y2:PL0T CX+X2,CY-Y2:DRAWT0 CX~X2,CY-Y2 

:NEXT XICOLOR 1:RETURN 



CHECKSUM DATA 

(See pgs. 7-10) 

8 DATA 365,712,888,195,686,399,359,614 
,380,298,205,186,528,297,673,6680 
1028 DATA 282,202 
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GRAPHIC VIOLENCE 



16K Cassette or Disk 



by Tom Hudson 



When writing game programs, many 
programmers automatically choose assembly 
language over BASIC because of the obvious speed 
advantage. This can sometimes be a mistake, since 
BASIC offers some functions (such as sine, square 
root, etc.) not easily written in assembler. One way 
to take advantage of the convenience of BASIC and 
the speed of assembler is to combine the two 
languages. ATARI BASIC allows the user to "call" 
machine-language subroutines, which can be many 
times faster than the same routine in BASIC. 

In order to assist those game programmers who 
would like to have dramatic explosion effects in their 
BASIC programs, I have developed Graphic 
Violence, a group of assembly-language subroutines. 
These routines allow BASIC to generate up to 20 
simultaneous explosions in GRAPHICS 7. They can 
optionally generate sound effects as well as "cycle" 
the colors of the explosions for an interesting 
"radioactive glow" effect. 

The first half of this article is a non-technical 
explanation of how to use Graphic Violence. The 
second half is an in-depth discussion of the actual 
assembly language code for those interested in the 
inner workings of the subroutines. 

Using Graphic Violence. 

Listing 1 is the BASIC language code necessary to 
set up the Graphic Violence subroutine. This code 
should be placed in any program that is to use the 
explosion generator. After typing this program in, 
SAVE it immediately, BEFORE RUNNING IT! The 
routine has some safeguards against typing errors in 
the DATA statements, but if it is executed with bad 
DATA, the system may crash and it will be necessary 
to re-type the program. 

After the program is typed and SAVEd, RUN it. If 
it is typed correctly, the program will run for several 
seconds before anything happens. The screen colors 
will begin cycling quickly. If not, an error was made 
somewhere, and you should re-boot your system, 
load the SAVEd program, find the mistake, SAVE it 
and try again. 

If a message such as "COORDI ERR" occurs, you 
have made a mistake typing in the DATA statements. 
"COORDI ERR" indicates that an error was made 



in the COORDI DATA, "INIT ERR" is an error in 
the INITIALIZATION CODE, etc. Find the error, 
fix it and re-RUN the program. 

Once the computer starts cycling colors, press 
SYSTEM RESET before doing anything else. 
Whenever operating any program using the Graphic 
Violence subroutine, you MUST use the SYSTEM 
RESET key to terminate the program. The sub- 
routine automatically disables the BREAK key since 
typing commands in immediate mode while the 
subroutine is in operation will usually cause a system 
crash. Pressing SYSTEM RESET will correctly 
terminate the subroutine and avoid any problems. 

At this point, you should have a correctly 
operating Graphic Violence initialization sub- 
routine SAVEd on tape or disk. 

Program 1 Flow. 

Line 80 — GOSUBs to line 10000 to 
initialize the subroutine. 

Line 10010 — Dimensions the strings 
needed by Graphic Violence and RESTORES 
the DATA pointer. 

Line 10020-10060 — READs DATA state- 
ments into the strings used by the subroutine. 

Line 10080 — POKEs graphics PLOT 
values into Graphic Violence. 

Line 101000 — Calls the machine- 
language initialization routine. It is of the form: 

A=USR (ADR (INIT$) , ADR CHAINS) , ADR (COORDI 
$1 ,ADR(COORD2$3 , COLOR, SOUND) 

The COLOR value tells whether or not you want 
the color of the explosions to cycle. In the program 
listing, this value is set to 1, indicating that cycling is 
desired. If you do not want cycling, place a here. 

The SOUND value tells whether or not you want 
the routine to generate sounds with the explosions. 
In the listing it is a 1, indicating that we want sound. 
If sound is not desired, place a here. 

Line 10110 — This line simply returns from 

the subroutine to the main program 

A short demonstration. 

With Listing 1 in your computer, add Listing 2 

to the original program and RUN it. This is a short 
demonstration routine which simply places an 
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explosion at the center of the screen, then repeats. 
By looking at this short routine, you will notice 
the USR call in line 220. This is the command which 
starts an explosion. Once the Graphic Violence 
machine-code subroutine is set up, this short 
operation is all you need to generate explosions. 

Remember to stop the program by pressing 
SYSTEM RESET. 

Program 2 Flow. 
Line 190 — Set up a full-screen graphics 
mode 7. 

Line 220 — Call the explosion-starting 
machine language routine. This line actually 
starts the explosion. It is of the form: 

A=USR I ADR CEKPL$J , X, Y) 

X and Y are the screen coordinates of the center of 
the explosion. In the Listing, X=80 and Y=48, 
placing the explosion at the center of the screen. 

This statement is the heart of the Graphic 
Violence routine. Once this statement is executed, it 
starts off an explosion while BASIC continues with 
whatever it is doing. In addition, the explosion 
handler can operate up to 20 explosions simultan- 
eously, while BASIC does its own processing! 
Line 240 — This line is a simple delay loop 

which allows an explosion to dissipate before 

generating another. 

Line 260 — This line goes to start a new 

explosion after the wait. 

In the previous example, we generated one 
explosion at the center of the screen, just to keep 
things simple. In the next example, we will see how 
the Graphic Violence routine will handle up to 20 
simultaneous explosions without the programmer 
having to worry about what's going on inside the 
explosion handler! All the programmer needs to do 
is send the explosion coordinates to the routine via 
the USR command and let the computer do the rest. 
(What could be simpler?) 

With Listing 1 in your computer, add Listing 3 
to the original program and RUN it. The program 
will fill up most of the screen with graphics, then 
start dropping "bombs" from the top of the screen. 
As they hit the graphics area, they will explode 
violently, "eating" away the graphics. As soon as one 
of the bombs falls off the bottom of the screen, an 
end message will be displayed and subsequently 
destroyed by a number of explosions. The program 
will run continuously and MUST be stopped by 
pressing SYSTEM RESET. 

Program 3 Flow. 

Line 190 — Sets up graphics mode 7 and sets 
COLOR #2 (the explosion color) to maximum 
brightness. 

Line 210 — Fills up the bottom section of 
the screen with COLOR 1 graphics. 

Line 230 — Makes sure any error will cause 



the program to continue at line 320 (the "THE 
END" routine). This TRAP statement will take 
effect when a bomb falls off the bottom of the 
screen. 

Line 250 — Gets the X and Y coordinates 
where the bomb will start its drop. 

Line 270 — Erases old bomb position (using 
COLOR 0) and increments Y position so that 
bomb will "fall" toward bottom of screen. 

Line 290 — Uses the LOCATE command 
to see if the bomb has hit anything. If the bomb 
hits color 1, an explosion is started at the X and 
Y coordinates and a new bomb is randomized. 

Line 310 — If no hit is detected, the bomb is 
plotted in color 2, the program waits a fraction 
of a second, then continues at line 270. 

Line 330 — When a bomb falls off the 
bottom of the screen, the error is TRAPped 
here. At this time, the computer sets up a new 
graphics 7 screen, sets the explosion brightness, 
and selects COLOR 1. 

Line 350 — This line RESTORES the 
DATA pointer to line 400 (THE END shape 
data), reads from-and-to plot data and draws 
the THE END message on the screen. 

Line 370 — This line sets off 200 
explosions, which destroy the THE END 
message. Note that the explosion USR call has 
random number functions for X and Y 
coordinates of the explosion center. There is 
also a 40 count delay after each explosion is 
started for a more interesting display. 

Line 390 — After all explosions are 
generated, wait a few seconds and GOTO line 
190 to re-run the demonstration continuously. 

Line 410-430 — These lines contain PLOT 
data for the words "THE END." Each line in 
the letters is represented by 4 values, made up of 
2 sets of X and Y coordinates, the line 
endpoints. 

Summary. 

The Graphic Violence explosion generator 
subroutine will operate in almost any game using 
graphics 7. Explosions overlapping the edges of the 
screen are automatically "clipped," but the program 
has minimal error-trapping. The user should take 
care to make sure that the coordinates supplied to 
the routine do not exceed the graphics 7 screen 
limits. The routine uses sound channel 1 when the 
sound generation option is requested. The 
Explosions use COLOR 3 (SETCOLOR 2), and will 
cycle the color only (not brightness) if color cycling 
is requested. Any program using the Graphic 
Violence routine must be terminated with SYS- 
TEM RESET to avoid a system crash. 

The following section contains a discussion of the 
assembly-language routines that make up Graphic 
Violence. This information is not necessary to use 
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the subroutine, but may assist those interested in 
assembly language and the inner workings of the 
ATARI computers. 

Background information. 

The Graphic Violence subroutine is made up of 
three program segments and two data tables. These 
five modules work together to provide a machine- 
language explosion generator for BASIC. 

The first assembly program (Listing 4) is the 
Graphic Violence initialization subroutine. It is 
stored in the BASIC string variable INIT$. Its 
function is to accept the locations of the main 
program module, and accept the color cycling and 
sound generation options. 

Remember that this is the routine called in the 
BASIC statement: 

ArUSR CADR f IHITS3 , ADR f MAINS) , ADR CCOORD 1 
S) ,ADRtCG0RD2S) , COLOR, SOUND) 



Program 4 Flow. 

Line 230 — This line arbitrarily sets the 
location counter to $6000. Since this routine 
will be fully relocatable and stored in a BASIC 
string, this address does not matter. 

Line 240 — This PLA instruction pulls the 
first argument off of the stack. In a BASIC USR 
call, this argument is always the number of 
arguments passed to the machine language 
routine. We do not use it in this case, and it is 
discarded. 

Line 250-270 — This section zeroes out the 
explosion ready flag and the explosion counter. 

Line 280-330 — This section pulls the low 
and high bytes of the address of the main 
routine (ADR M AIN$), transfers them to the X 
and Y registers, then puts a 7 in the accumulator 
and jumps to the SETVBV subroutine. This 
tells the system that we are using a vertical blank 
interrupt. The 7 indicates that it is a "deferred" 
vertical blank routine, that is, it operates after 
the system's vertical blank operation. 

Line 340-410 — This section pulls the low 
and high bytes of the two sets of plot 
coordinates (COORDl$ and COORD2$, 4 
PLA s total) and stores them on page zero ($CB- 
$CE) for later use by the main module. 

Line 420-440 — This section pulls the color 
cycle indicator (COLOR) from the stack. Since 
this is a one-byte indicator and the system sends 
a two-byte argument, the first byte (high byte) is 
discarded and the second is stored in CYCFLG. 

Line 450-470 — This section is the same as 
lines 420-440, except that it stores the sound 
indicator (SOUND) in SNDFLG. 

Line 480 — This RTS (Return from 



Subroutine) returns control to your BASIC 
program after the initialization is complete. 
The second assembly language program (Listing 

5) is the explosion start routine. It is called by the 
BASIC statement: 

A=U5RCADRCEKPL$) ,X,Y) 

This routine simply accepts the coordinates of the 
explosion from BASIC. If there are 20 explosions 
active, it will ignore the request, otherwise it will 
send the coordinates to the main module, which is 
executing in the deferred vertical blank. 

Program 5 Flow. 

Line 200 — Once again, this Listing has its 

location counter set to $6000. It makes no 
difference, since this routine is fully relocatable. 

Line 210 — As in the previous Listings, 
this line discards the first item on the stack (the 
number of arguments passed to the assembly 
routine). 

Line 220-240 — These lines check the 
variable EXPCNT to make sure the new 
explosion can be started. If there are less than 
20, control is passed to EXPOK (explosion 
OK). 

Line 250-290 — These lines are used if 
there are already 20 explosions. The remaining 
4 bytes are pulled from the stack and discarded, 
and the program returns to BASIC. No 
explosion is generated. 

Line 300-350 — In a manner similar to the 
COLOR and SOUND parameters in Listing 
#4, this routine pulls the X and Y coordinates 
off of the stack and places the values in NEWX 
and NEWY for use by the main module. 

Line 360-370 — This section places a 1 in 
READY flag, which tells the main interrupt 
routine that a new explosion is ready to start. 

Line 380 — This RTS instruction simply 
returns control to BASIC. In this way, the 
interrupt can start the explosion graphics while 
BASIC keeps running normally. 
The third assembly language routine (Listing 

6) is the vertical blank interrupt routine, stored in 
MAIN$. It does all the color cycling, sound, and 
graphics for the explosions. Since it is an interrupt- 
driven program, it operates independently of 
BASIC, allowing BASIC to continue processing 
normally while the vertical blank does all the 
explosion work. 

Since this program is stored in a BASIC string, any 
program editing or immediate mode operations in 
BASIC while the vertical blank routine is running 
will cause a system crash. This is due to the fact that 
BASIC moves its variables around in memory during 
editing of programs, and such movement of the 
interrupt routine will confuse the system. To help 
avoid such a problem, the Graphic Violence 
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interrupt routine disables the break key, making it 
necessary to press SYSTEM RESET to stop program 
execution. This is only a partial solution, however, 
since if the programmer allows his program to end 
with the READY prompt, then enters a program 
line, the crash will still occur. 

The interrupt routine performs several functions. 
First, it disables the BREAK key and cycles the color 
of playfield 2 if necessary. Next, it processes 
sound, if required, using sound channel 1. The last 
major function it performs is that of explosion 
graphics generation. 

Each explosion graphic is made up of 89 separate 
pixels. The routine uses the specified centerpoint of 
each explosion and adds X and Y offset values, which 
are stored in the BASIC string variables COORD 1$ 
and COORD2$. Each of the 89 pixels are first 
turned on, one pixel at a time, resulting in a 
"growing" appearance. After all 89 pixels are on, the 
routine turns off one pixel at a time, causing the 
explosion to dissipate. Each active explosion has a 
pixel either turned on or off each time the interrupt 
is performed. Since this happens 60 times a second, 
each explosion takes roughly 3 seconds to expand 
and dissipate [(89*2)760], Explosions are 
independent of each other because of three tables. 
The X and Y coordinates of each explosion are 
stored in the XPOS and YPOS tables. The third 
table, CNT, holds the number of the pixel which will 
be turned on or off next for each explosion. This 
value ranges from to 88 for "on" pixels, and 89 to 
177 for "off" pixels. If the CNT value for an 
explosion exceeds 177, the explosion has dissipated 
completely and its values are removed from the 
explosion tables by a "repack" operation. That is, if 
explosion number 2 is finished, explosion 3 will 
move back to 2, 4 to 3, etc. 

Program 6 Flow. 

Line 500 — Clears decimal mode. This 
instruction is vital when writing subroutines for 
BASIC that do any binary arithmetic. 

Line 510-540 — Disables the BREAK key 
by altering POKMSK and IRQEN, the interrupt 
request enable. This prevents the BREAK key 
from generating an interrupt. 

Line 550-640 — Cycles colors if CYCFLG 
is not zero. 

Line 650-770 — Processes explosion sound 
if SNDFLG is not zero. 

Line 780-940 — Monitors the READY flag 
to see if there is a new explosion. If not, the 
program checks for any old explosions at 
MAIN. If there is a new explosion, the routine 
sets up the XPOS, YPOS and CNT tables with 
the new information. 

Line 950 — Zeroes out COUNTR, the 
variable indicating which explosion is being 
processed. 



Line 960- 1000 — Increments the explosion 
counter. If the counter is greater than the 
current number of explosions active 
(EXPCNT), the routine jumps to XITVBV, the 
vertical blank exit vector. Otherwise control is 
passed to INDEX. 

Line 1130-1350 — This section repacks the 
XPOS, YPOS and CNT tables to eliminate a 
"dead" explosion. It then branches back to 
RUNLP to handle the next explosion. 

Line 1360-2350 — This routine turns 
explosion pixels on or off, depending on the 
PLOTCLR setting. If the pixel is off the screen, 
the plot is abandoned by a branch to RUNLP. 
By expanding the XPOS, YPOS and CNT tables 
and altering the explosion call routine (Listing 5), 
advanced users can enable the Graphic Violence 
routine to handle many more explosions than it can 
now. However, 20 explosions are more than enough 
for most applications, and the routine should serve 
well as is. 

I hope that ATARI programmers will see by this 
example that it is not always necessary to write game 
programs completely in assembly language. Just use 
BASIC for complicated functions difficult to write 
in assembler, and use assembler for things BASIC is 
too slow to do. □ 



Listing 1 (BASIC) 

10 REM XXMXXXMXXXXXXXMXKXMXXMXXXX 

28 REM * GRAPHIC VIOLENCE DEMO # 

38 REM * A.N.A.L.O.G. COMPUTING * 

48 REM * BY TOM HUDSON * 

58 REM XXXXMXXXHMXXKXXMXXXXXMXXXX 

60 REM 

78 REM *** INITIALIZE THE GRAPHIC UI0L 

ENCE SUBROUTINE *** 

88 G0SUB 18810 

98 REM 

180 REM KKKXXKKXKXKXKMKXXKKXXKXXKXXXK 

118 REM ** YOUR PROGRAM GOES HERE! ** 

128 REM XXXXXXXXXXXXXMXXXXMXXXXMMXXXX 

130 GOTO 13© 

10888 REM *** INITIALIZATION SUBR0UTIN 

F ¥M¥ 

18018 DIM INITS (413, EXPLSC293, MAINS C35 

53 ,C00RDlS{893 ,C00RD2$f893 :REST0RE 118 

00 

18820 T0T=6:F0R X=l TO 89:READ A:T0T=T 

0T+A:C00RD1$CX,X3=CHR$(A3 : NEXT X : IF TO 

T<>9984 THEN ? "C00RD1 ERR":END 

1O03O T0T=8:F0R X=l TO 89:READ A:T0T=T 

OT+A;COORD2$CX,X3=CHRS<A3 :NEXT X : IF TO 

T<>9984 THEN ? "C00RD2 ERR":END 

18848 TOT=0:FOR X=l TO 41: READ A:T0T=T 

0T+A.INITS£X,X3=CHRS{A3 : NEXT X : IF T0T< 

>423? THEN ? "INIT ERR" : END 

18850 T0T=8:F0R H-X TO 29 : READ A:T0T=T 

OT+A:EXPL$CX.X3=CHR$tA3 :NEXT X.IF T0T< 

>2.198 THEN ? "EXPL ERR":END 

18868 T0T=8:F0R X=l TO 355:READ A:T0T= 

T0T+A:MAIN$(X,X3-CHR$(A) :NEXT X : IF TOT 

036691 THEN ? "MAIN ERR": END 

10078 REM *** SET UP PLOT BITS *** 

18880 POKE 1568,192:P0KE 1569 , 48 : POKE 

1578,12:P0KE 1571,3 

18898 REM **» INITIALIZE GRAPHIC UI0LE 

NCE ROUTINE AND RETURN *** 

18188 A=USRCADR<INIT$3 ,ADR(MAIN$3 ,ADR( 

C00RD1S3 ,ADRCC00RD2$3 ,1,13 

10110 RETURN 
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11080 REM *** C00RD1 DATA *** 

11018 DATA 0,1,255.8,255,0,255,2,1,1,8 

,254,255,1,8,1,254,254,2,8,1,255.2,2,2 

,255,254,1.253,3,1,4,252,253,254 

11820 DATA 255.254,2,3,3,253,0,0,8,4,4 

,252,255,2,8,3,2,1,253,254,254.252,253 

,3,253,252,251,251,252,4,3,4,255 

11038 DATA 5,5,5,253,1,254,8,255,252,2 

53,251,253.252,3,4,3,1,255,1,2,4 

12800 REM *** C00RD2 DATA *** 

12816 DATA 8,255,1,2,254,255,0.1.254,8 

,1,8. 255 , 1 , 253 , 253 . 2 , 255, 255 , 254 ,2,3,2 

,8,254,2.1,3,254.1 .254,255,8,1,253 

12828 DATA 253,254.3,2.0,3,252,4,3.8,2 

,2,4,4,5.3,253,252,0,3^4,254,252,252,2 

,1,1,8,255,254,255,1.251 

12838 DATA 8.255,1,4,4,252,251.252,253 

,253,255,255,3,253,253,4,251,5,5,252.3 

13888 REM *** INITIALIZATION CODE *** 

13818 DATA 184,163,0,141.8,6,141,1,6,1 

04,170,104.168,165,7 

13828 DATA 32,92,228,184,133,284,184.1 

33,283,184,133,286,184,133,285 

13836 DATA 104,104,141,11,6,184,184,14 

t ,12,6,96 

14088 REM **# EKPLOSION CALL CODE **# 

14818 DATA 104,173,1,6,201,20,48,5,184 

,104,104.104,96,104,104 

14820 DATA 141,2,6,104,104,141.3,6,169 

,1,141,0,6,96 

14990 REM *** MAIN INTERRUPT CODE **# 

1500O DATA 216,165,16,41,127,133,16,14 

1,14,210,173.11.6,248,20 

15810 DATA 173,14,6,24,105.16.141,14,6 

,173,198,2,41,15,13 

1502O DATA 14.6,141,198,2,173,12,6,248 

,22,173.13,6,240,17 

15838 DATA 56,233,1,141,13.6,74,74,74, 

141,1,218,169,40,141 

15040 DATA 0,210.173.0,6,240.31.238,1, 

6,174,1,6,173,2 

15858 DATA 6,157.64,6,173,3,6,157,85.6 

,169,127,141,13,5 

15866 DATA 169.0,157,166,6,141,0,6,141 

,5,6,238,5,6,173 

15670 DATA 1,6,285,5.6,16,3,76,98.228, 

174,5.6,169,8 

15080 DATA 141,4,6,189,186.6.281,85,48 

,51,238,4,6,56.233 

15898 DATA 89.281,89,48.41,138.168,232 

,236,1,6,240.2,16,21 

15188 DATA 189.64.6,153,64.6,189,85.6, 

153,85.6.189,166,6 

15118 DAtA 153,186,6,200,208.227,286.1 

,6.206,5.6,169.8,240 

15128 DATA 176.254,186,6,168,189,64,6, 

24,113,283,141.6,6.281 

15138 DATA 168,176,159,189,85,6,24,113 

,265,141.7,6,201,96,176 

15140 DATA 146,10,133,207,169,8,240,2, 

240,137,133,208.165,267,18 

15158 DATA 133,287,165,288,42,133,268, 

165,287,10,133.207.141.9,6 

15168 DATA 165.208,42,133,208,141,8,6, 

165,207,16,133,287,165.208 

15178 DATA 42.133.288,165,207,10,133,2 

07,165,208,42,133,288,165,207 

15180 DATA 24,109,9,6,133,207,165,288, 

109,8,6,133,288.165,88 

15196 DATA 24,181,207,133.207.165.89,1 

01,208,133,208,173,6,6,41 

152O0 DATA 3,168,198,32.6,142,10,6,173 

,6,6,74,74,24,101 

15210 DATA 207,133,207,165,208,165,0,1 

33,208,168,8,173,4,6,288 

15220 DATA 11,173,10,6,81,287,145,207, 

169,0,240,132,173,18,6 

15230 DATA 73,255,49,207,145,287,163,8 

,240,241 



CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 286,324,225,872,288,261,725,83 
7,267,778,948,784,701,838,321,8441 
18826 DATA 887,814,298,322,416,442,758 
,766,208,43,332,901,920,385,338,7674 
12016 DATA 966,265,36,858,239,907,884, 
831,543,392,825,377,13,7,217,7366 
15O40 DATA 450,996,743,441,863,301,958 
,239,326,614,853,887,899,169,370,9109 
15190 DATA 615,960,409,269,122,2375 



Listing 2. 



130 
140 
158 
160 
170 
188 
190 
208 
210 
220 
230 
246 
250 
260 



REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 

REM * GRAPHIC VIOLENCE DEMO * 

REM * NUMBER 1 * 

REM XXXXXXXKXXXXXXXXXXXXXMXXXXX 

REM 

REM *** SET UP GRAPHIC MODE 7 **# 

GRAPHICS 7+16 

REM #*# SET OFF AN EKPLOSION *** 

REM #** AT SCREEN CENTER *** 

A=U5RCADRfEKPL5j ,80,48) 

REM **X WAIT A FEW SECONDS *** 

FOR WAIT::! TO 28O0:NEKT WAIT 

REM #** DO EKPLOSION AGAIN *#* 

GOTO 220 



Listing 3. 



GRAPHIC VIOLENCE DEMO 
NUMBER 2 



X 
X 



130 REM 

140 REM * 

150 REM * 

160 REM 

170 REM 

186 REM *** SET UP GRAPHICS 7 FULL SCR 

EEN AND EKPLOSION COLOR **» 

190 GRAPHICS 7+16:SETC0L0R 2,15.15 

200 REM *** DRAW THE 'GROUND' *** 

210 COLOR l:FOR Y=20 TO 95:PL0T 0,Y:DR 

A WTO 159 Y : NEKT Y 

228 REM #** TRAP ANY ERRORS TO 'THE EN 

D' ROUTINE **» 

230 TRAP 328 

240 REM **» RANDOMIZE START POINT FOR 

DROPPING BOMBS #*# 

250 K=5+RNDC0)*149:Y=RND(O)*3 

260 REM *** ADVANCE THE BOMB AS IT DRO 

PS *X* 

270 COLOR 0:PLCT X,Y:Y=Y+3 

288 REM *** IF THE BOMB HITS COLOR I, 

SET OFF EKPLOSION X*X 

296 LOCATE K,Y,Z:IF Z=l THEN A=U5R (ADR 

CEKPLS) ,X,Y) :GOTO 250 

308 REM **# NO HIT, CONTINUE DROP *** 

31© COLOR 2:PL0T X,Y:FOR DELAY=1 TO 18 

SNEHT DELAY :GOTO 270 

320 REM *** 'THE END' *** 

338 GRAPHICS 7 + 16 : SETCOLOR 2, 15, 15: COL 

OR 1 

340 REM **X PLOT 'THE END' **# 

350 RESTORE 488: FOR H=l TO 22 : READ FRX 

,FRY,TUK,TUY:PLOT FRK , FRY : DRAWTO TUK,T 

UY:NEKT K 

368 REM **# SET OFF 208 RANDOM EKPLOSI 

ONS «** 

376 FOR EKPL=1 TO 20O : A=U5R IADR CEXPLS) 

,46+RND(0)*75,20+RNDC0)#55) :FOR DELAY= 

1 TO 48:NEKT DELAY:NEXT EHPL 

386 REM *** LET EXPLOSIONS DIE, THEN R 

E-RUN THE DEMO #** 

390 FOR DELAY=1 TO 28O0 : NEKT DELAY .GOT 

190 

460 REM *** -THE END' DATA *** 

410 DATA 50,25,67,25,59,25,59,45,72,25 

,72,45,72,35,88,35,88,25,88,45,93,25,3 

3,45,93,25,183,25,33,35,169,35 
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428 DATA 93,45,109,45,58,50,50,70,50,5 

8,67,50,50,60,67,60,50,70,67,70,72,70, 

72,50,72,50,88,70,88,70,88,50 

430 DATA 93,50,93,70,93,50,102,50,102, 

50,109,56,109,56,109,64,109,64,102,70, 

102,70,93,70 



CHECKSUM DATA 

(See pgs. 7-10) 

138 DATA 351,454,438,360,95,403,617,1© 
0,539, 885 , 711 , 340 , 552 , 331 , 470 , 6646 
288 DATA 421,589,835,842,98,463,638,15 
3,787,999,122,753,603,401,961,8665 
438 DATA 292,292 



Listing 4. 

; GRAPHIC VIOLENCE 

; A.N.A.L.O.G. COMPUTING 

■ INITIALIZATION CODE 



READY = $698 




EXPCNT = 1681 




CYCFLG = $688 




SNDFLG = $68C 




C00RD1 = $CB 




C00RD2 = $CD 




SETVBV = $E45C 




*= $6888 




INIT PLA 


;DISCARD 


LDA «8 


;ZER0 OUT: 


3TA READY 


j READY FLAG 


STA EXPCNT 


;# OF EXPL. 


PLA 


; INTERRUPT HI 


TAX 


;PUT IN X 


PLA 


; INTERRUPT LQ 


TAT 


;PUT IN Y 


LDA «? 


; DEFERRED VBI 


JSR SETVBV 


;SET 1T ! 


PLA 


;CQ0RD1 HI 


STA COORDltl 


;SAVE IT 


PLA 


•PULL C00RD1 LO 


STA COORD! 


;SAVE IT 


PLA 


iPULL C00RD2 HI 


STA C00RD2+1 


•SAME IT 


PLA 


iPULL C0ORO2 LO 


STA C0ORD2 


■SAVE IT 


PLA 


^DISCARD 


PLA 


;PULL COLOR CYCLE FLAG 


STA CYCFLG 


;SAVE IT 


PLA 


DISCARD 


PLA 


;PULL SOUND FLG 


STA SNDFLG 


;SAVE IT 


RTS 


;F!NISHED! 


.END 





Listing 5. 

8188 ; GRAPHIC VIOLENCE 

8118 ; 

8128 ; A.N.A.L.O.G. COMPUTING #8 

8138 ; 

8148 ; EXPLOSION CALL ROUTINE 

8158 : 

8168 READY = $688 



8178 EXPCNT = $681 
8138 NEUX = $682 
0190 NEWY = $683 
8288 *=$6008 
8218 PLA 
8220 LDA EXPCNT 
8238 CHP H2B 
9248 BMI EXPOK 
8258 PLA 
8268 PLA 
8278 PLA 
0238 PLA 
8298 RTS 
8388 EXPOK PLA 
0318 PLA 
8328 STA NEUX 
8338 PLA 
8349 PLA 
8358 STA NEUY 
8368 LDA #1 
0378 STA READY 
8330 RTS 
8398 ; 
8400 .END 



;DISCARD 
;# OF EXPL. 
;28 ACTIVE? 
;NQ, IT'S OK 1 
;YES. DISCARD 
;BOTH COORDS 



;AND EXIT 
;DISCARD HIGH 
;GET X-COORD 
; STORE IT 
;QISCARD HIGH 
;GET Y-COORD 
; STORE IT 
iTELL INTERRUPT 
iUE'RE READY! 
; AND EXIT BACK 
TO BASIC 



8188 
8118 
8128 
8138 
8148 
8158 
8168 
8178 
9138 
8198 

0208 

8218 
8228 



8248 
8258 
8268 
8278 
8238 
8298 
8388 
8318 
8328 
0338 
8348 
8358 
9368 
8378 
9338 



Listing 6. 

; GRAPHIC VIOLENCE 

A.N.A.L.O.G. COMPUTING 

VBLANK INTERRUPT ROUTINE 

READY = $688 
EXPCNT = $681 
NEUX = $682 
NEUY = $683 
PLOTCLR = $684 
COUNTR = $685 
PLOTX = $686 
PLOP/ = $607 
HIHLD = $683 
LOHLD = $689 
PLOTBrT = $69A 
CYCFLG = $68B 
SNDFLG = $68C 
SNDCNT = $68D 
COLOR = $68E 
PLOTBL = $628 
XP03 = $648 
YPOS = XPOS+21 
CNT = YPOS+21 
LO = $CF 
HI = $08 
COORD! = $CB 
C00RD2 = $CD 



8488 -SYSTEM EQUATES 

8418 ; 

8420 

8438 

8448 

8458 

9468 

8478 

8438 

0498 

9588 

8518 

8528 

8538 

8548 

8558 

8568 



XITVBV = $E462 
C0LPF2 = $2C6 
AUDC1 = $D281 
AUDF1 = $D280 
3AVMSC = $58 
POKHSK = $18 
IRQEN = $D20E 

*=$6B08 

CLD 

LDA POKHSK 

AND «$7F 

STA POKHSK 

STA IRQEN 

LDA CYCFLG 

BEQ CONT 



;CLEAR DECIMAL 
;GET IRQ INT. 
;N0 BREAK KEY 
;THE BREAK KEY 
;IS NOU OFFI 
;CYCLING COLOR? 
;N0, CONTINUE 



PAGE 56 



THE A.N.A.L.O.G. COMPENDIUM 



VOL. 1 



83/8 

8588 
8596 

urn 
%m 

8626 
8430 
8446 
8458 
8448 
8478 
8638 
8498 
8788 
8718 
% 728 
8738 
8748 
8758 
8748 
8778 
87S8 
8798 
8388 
8818 
8826 
6836 
8848 
6856 
6348 
6878 
8888 
8898 
8968 
8918 
8928 
8938 
8948 
6956 
8948 
6976 
8938 
8996 
1888 
1818 
1828 
1636 
1848 
•856 
18,48 
1676 
1636 
1696 
1186 
1116 
1128 
1136 
1146 
1156 

1 \ iu 

i iuC 

1178 
1136 
3196 
1266 
1216 
1228 
1236 
1246 
1258 
1248 
1276 
1288 
1296 
1386 
1316 
1328 
1336 



LDA COLOR 
CLC 

ADC 816 
STA COLOR 
LDA C01.PF2 
AND mf 
ORA COLOR 
STA C0LPF2 
CQNT LDA SNDFLG 
BEG 60 
IDA 3NQCNT 
BEG 60 
SEC 
SBC 81 
STA SNDCNT 
LSR A 
LSR A 
LSR A 
STA AU0C1 
LOA #40 

sta mm 

60 IDA READY 
BED MAIN 



GET LAST COLOR 
INCREMENT IT 
BY 14 

AND SAME IT 
GET COLOR REG. 
GET BRIGHTNESS 
ADD THE COLOR 
AND SAME IT! 
SOUND ON? 
NO, SKIP IT 1 
MORE SOW!)' 
NO, SKIP IT 1 
DECREMENT THE 
SOUND COUNTER 
AND STORE IT 
SHIFT DOWN TO 
DERIVE VOLUME 
FROM COUNTER 
SET UP SOU*' 
CHANNEL 1... 
FINISHED' 
NEW EXPLOSION' 
NO, CONTINUE 



jAT THIS POINT, THERE IS A 
;NEU EXPLOSION! 



INC EXPCNT 

LDX EXPCNT 

LDA NE14X 

STA XPOS,X 

LDA NEWY 

STA YPOS.X 

LDA ill 27 

STA SNDCNT 

LISA m 

STA CNT.X 

STA READY 
MAIN STA COUNTR 
RUNLP INC COUNTR 

LDA EXPCNT 

CMP COUNTR 

BPL INDEX 

JMP XITVBV 
INDEX LDX COUNTR 

LDA 88 

STA PLOTCLR 

LDA CNT,X 

'CMP 83? 
BMI DOPLOT 

INC PLOTCLR 
SEC 

SBC m 

CMP 889 
bmi DOPLOT 
TXA 
FAY 



;GNE MORE EXPL 
;PUT IN INDEX 
j GET X-COORD, 
;PUT IN TABLt 
;GET Y-COORD, 
!PuT IN TABLE 
(INITIALIZE THE 
[SOUND COUNTER 
jINIT COUNTER 
;FOR EXPL IMAGE 
;AND READY FLAG 
;2ER0 COUNTER 
;NEXT EXPLOSION 
;GET 8 OF EXPL. 
;ANY MORE EXPL' 
;YES, CONTINUE 

;GET INDEX 
:SET PLOTCLR 
;8=PL0T A BlOC!' 
;6ET COUNTER 
FOR EXPLOSION 
;ALl DRAWN- 5 
;N0, DO IT NOW 
;1=ERASE BLOCK 
:6ET READY FOR 
i ERASE CYCLE 
; ERASE DONE 7 
;NO,ERflSE BLOCK 
;HOVE INDEX 
;T0 Y REGISTER 



;THE FOLLOWING ROUTINE REPACKS 
;TKE EXPLOSION TABLE TO GET RID 
;GF EXPLOSIONS THAT ARE DONE. 



REPACK INX 

CPX EXPCNT 

BEG RPK2 

BPL RPKEND 
RPK2 LDA X?08 

S T A XPOS.r 

LOA YPOS,X 

STA YPGS,Y 

LDA CNT.X 

STA CNT,Y 

INY 

BNE REPACK jNEXT REPACK 

RPKEND DEC EXPCNT : DEC POINTERS 

DEC COUNTR ;DDE TO REPACK 



;NEXT EXPLOSION 

:DONE^ 

jNO, REPACK MORE 

;YES, EXIT' 

;N0, START RPK 

;M0OE 8ACK X 

jMOVE BACK Y 

jMOVE BACK CNT 



1346 
1356 
1346 
1376 
1386 
1398 
I486 
1418 
1428 
3438 
3448 
1458 
1448 
3470 
1488 
1498 
1588 
1518 
1528 
1536 
1548 
1556 
3540 
1578 
1588 
1598 
I486 
1418 
1426 
1638 
1648 
1656 
3666 
1678 
1680 
1696 
1786 
1738 
1728 
1738 
1746 
1758 
3768 
1778 
1786 
1796 
1366 
1318 
1828 
1338 
3846 
1358 
1868 
1378 
1886 
1398 
3968 
1918 
1920 
1938 
1940 
1956 
1948 
1976 
1938 
1998 
2866 
2818 
2628 
2836 
2046 
2858 
2066 
2876 
2886 
2898 
2188 



LDA 86 
8E0 RUNLP 
DOPLOT INC CNT.X 
TAY 

LDA XPOS.X 
CLC 

ADC (CQORDD.Y 
STA PLOTX 
CHP 8148 
BCS RUNLP 
LDA YPOS.X 
CLC 

ADC (C00RD2),Y 
STA PLQTY 
CMP 894 
BCS RUNLP 



; FORCE BRANCH 
;T0 NEXT EXPL. 
;INC COUNTER 
;EXP PHASE IN Y 
;GET X-COORD 

;ADD X OFFSET 
; STORE IT 
;OFF SCREEN? 
jYES, DON'T PLOT 
j GET Y-COORD 

;ADD Y OFFSET 
; STORE IT 
;OFF SCREW? 
;YES, DON'T PLOT 



THE FOLLOWING SECTION IS A 
DEDICATED MULTIPLY ROUTINE 
WHICH MULTIPLIES THE A REGISTER 
BY 46, WITH RESULT IN LO k HI 

ASL. A 

STA LO 

LDA 88 

BEG X2 

JRUNLP BEG RUNLP 
X2 STA HI ;*2 

LDA LO 

ASL A 

STA LO 

LDA HI 

ROL A 

STA HI ;*4 

LDA LO 

ASL A 

STA LO 

STA LOHLD 

LDA HI 

ROL A 

STA HI 

STA HIHLD ;*8 

LDA LO 

ASL A 

STA LO 

LDA HI 

ROL A 

STA HI 5*1(5 

LDA LO 

ASL A 

STA LO 

LDA HI 

ROL A 

STA HI ;*32 

LDA LO 

CLC 

ADC LOHLD 

STA LO 

LDA Hi 

ADC HIHLD 

STA HI ;- l *8-*40 

■AT THIS POINT, THE MULTIPLY BY 
j48 IS FINISHED, AND WE NEED TO 
;GET AN OFFSET INTO THE SCREEN 
{MEMORY 



LDA SAVMSC 

CLC 

ADC LO 
STA LO 
LDA SAVMSC+1 

ADC HI 
STA HI 
LDA PLOTX 
AND 83 
TAY 



ADD ^E DISPLAY 
ADDRESS TO GET 
THE ACTUAL 
ADDRESS OF THE 
BYTE THAT WILL 
BE ALTERED FOR 
THE PLOT. 
MASK PLOTX FOR 
THE PLOT BITS. 
PLACE IN Y... 
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21 16 


LDX PLOTBL.Y 


;GET PLOT BITS, 


2128 


Srx PLOTBYl 


;AND SAVE 1 


2138 


LOA PLOTX 


jGET PLOTX AND 


2148 


LSR A 


I DIVIDE 


2150 


LSR A 


: BY 1 


2168 


CLC 


•AND ADD TO 


2178 


ADC LO 


;PLOT ADDRESS 


21 88 


STA LO 


;F0R FINAL PLOT 


2196 


LDA HI 


; ADDRESS. 


2288 


ADC m 




2218 


STA HI 




2226 


LDY M 


;2ERO OUT Y REG. 


2236 


LOA PLOTCLR 


{ERASING? 


2248 


BNE CLEARIT 


;YES,GO CLEAR IT 


2258 


LOft PLOTBYT 


; GET PLOT BITS. 


2268 


EOR <L0),Y 


;ALTER DISPLAY, 


2278 


STA (LO) .Y 


;AND PLOT IT! 


2280 


LDA »e 


; FORCE BRANCH 


2298 


JRUNLP2 3EQ JRUNLP ;ANO EXIT! 


2388 


CLEAR] T LDA PLOTBYT ;PLOT BITS 


2318 


EOR «$FF 


;FLIP 'EM 


2326 


AND (LO),Y 


; ALTER DISPLAY 


2338 


STA (LO),Y 


;AND ERASE IT! 


2348 


LDA 118 


; FORCE BRANCH 


2358 


BEQ JRUNLP2 


sflND EXIT! 


2368 


.END 





Graphics 11 GTIA Demo 



10 REM GRAPHICS 11 GTIA DEMO 

28 REN 

30 GRAPHICS 11 

46 CI=l:C=6:SETC0L0R 4,6,2 

56 FOR Y=6 TO 191 

66 FOR K=0 TO 79 

76 C=C+l:IF C=16 THEN C=6 

68 COLOR C 

98 PLOT X,Y 

168 NEXT X 

116 LC=LC+i:IF LC=16 THEM CI=-CI:LC=1 

128 C=C+CI:IF C=16 THEM C=8 

138 MEXT Y 

148 GOTO 148 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 998,253,995,374,128,296,319,77 
8 , 619 , 758 , 988 , 438 , 769 , 787, 8484 
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ATARI 1020 PRINTER DEMO 



10 REM WBHHHHHBHHHHHHBHHHHHHHHt 
28 REM * ATARI 1828 PLOTTER * 
30 REM * SPHERE DEMONSTRATION * 
40 REM * BY TOM HUDSON * 

50 REM MXXXMXXXXMMMMXXMMMMMMMMX 

68 REM 

70 REM *** OPEN IOCB 1 TO PLOTTER *** 

80 REM 

98 OPEN ttl,8,8,"P:" 

100 REM 

110 REM *** SET SPHERE RADIUS *** 

128 REM 

138 SIZE=158 

148 REM 

158 REM *** INITIALIZE PLOTTER *** 

168 REM 

170 ? ttl;"fc\*H*I*M8,";-SIZE-20;"*I" 

188 REM 

198 REM *** SET SPHERE CENTER *** 

288 REM 

218 CX=248:CV=8 

228 REM 

230 REM *** START PLOTTING! *** 

240 REM 

250 DEG :TIME=1 

268 ? t»lj"M ,, ;CX+SIZE;","jCV:REM **» ST 

ART THE PLOT *** 

278 FOR Y-98 TO 6 STEP -12 

288 FOR X = TO 368 STEP 12 

298 IF TIME=1 THEN X2=CX+5IZE*C0S CXJ : Y 

-UY uiic*jiR 1nj1r3j.1t itJ J ;buiu ,>*« 
380 X2=CX-fSIZE#SINCXJ*SINIYJ) :Y2=CY+S 
IZE*COSCXJ 
310 REM 

320 REM *** DRAM LINE OF SPHERE *** 
338 REM 

348 ? ttl;"D";X2; ,, , ,, ;Y2 

358 NEXT X:NEXT Y 

368 REM 

378 REM *** DO NEXT DIRECTION *** 

380 REM 

390 TIME=TIME+l:IF TIME=2 THEN ? ttl;"M 

";CX;",";CY+SIZE:GOTO 270 

488 REM 

418 REM *** MOVE PAPER UP AT EMD *** 

428 REM 

438 ? ttl; ,, H*M8, ,, ;-SIZE-28; ,, *I" 

448 CLOSE ttl:END 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 267,78,613,989,275,261,719,265 

,585,74,225,88,748,86,689,5786 

168 DATA 92,755,98,248,76,28,82,288,88 

,84,848,182,274,562,515,4212 

318 DATA 81,293,87,768,536,96,322,182, 

57,88,395,86,576,131,3618 



18 REM XHXXXMXXMXXMXMMXXMMXMX 

28 REM * ATARI 1828 PL8TTER * 

38 REM * "SQUARE-WEB" DEMO * 

48 REM * BY T8M HUDS8N * 

58 REM MMXMXMXMMXMMMltJCMMMXMXX 

68 REM 

78 REM *** OPEN IOCB 1 TO PLOTTER *** 

88 REM 

98 OPEN ttl,8,8,"P:" 

180 REM 

110 REM *** INITIALIZE PLOTTER *** 

128 REM 

138 ? ttl;"£\*H*I*M8, -488*1" 

148 REM 

158 REM *** START PLOT LOOP *** 

168 REM 

178 FOR X=28 TO 388 STEP 28 

188 REM 

198 REM *** DRAM 4 LINES *** 

288 REM 

218 ? »l;"M";X;", 388*0388, "Mee-X;";"; 

488-X;",28;28,";X;";";X,'",388" 

228 NEXT X 

238 REM 

248 REM *** ALL DONE! *** 

250 REM 

260 ? Hl;"H" 

278 CLOSE til: END 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 831,647,628,440,839,261,719,26 

5,585,74,597,88,923,86,212,7187 

168 DATA 92,382,98,591,76,229,766,85,1 

75,91,499,136,3148 
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DISK FILES: 

USING NOTE & POINT 



32K Disk 



by Jerry White 



This is a demonstration program that creates a 100 
record inventory file and permits the user to update 
the file using random access. Random access allows 
immediate access to any given record in a file without 
reading each record again and again. 

The rest of this article assumes you have typed in 
the program. If there were no errors in typing, you 
should now have 3 options on the screen. First, we 
must create a data file, so type 1. This will send the 
program to line 100. We will now create a 100 record 
file to work with. Each record will contain a record 
number, an item count and an item description field. 
Each field is separated by a comma. As the file is 
created, it will be displayed on the screen. After 
record 100 is written the file is closed, and you will 
be returned to the 3 original options. 

Now type the number 2. In order to use random 
access updating, we must know exactly where each 
record begins on the diskette. Before updating, the 
program will create an index using an array in mem- 
ory. Once this is done, we can instantly find any re- 
cord using the POINT instruction. But first, we must 
NOTE the location by storing the sector number and 
byte in our arrays. We only have to do this once. 
Then we can inspect or change as many records as 
needed. 

The index is created using the routine starting at 
line 300 and ending at 420. Line 500 is the beginning 
of the random access routine. You should be able to 
follow the program listing, since the variables used 
will all be defined at the end of this article. At this 
time, I will only explain how the NOTE and POINT 
instructions are used. 

At line 310, we check a flag to see if an index has 
already been created. If so, we do not have to repeat 
this procedure and go to line 500. To create the in- 
dex, we read the datafile. Before reading each record, 
we NOTE the sector and byte position and put it into 
our SEC and BYT arrays. 

Once the array is complete, we are ready to display 
or update any record in the datafile using the POINT 
instruction to locate the record we want. Let's start 
by displaying record 50. Type D and press RETURN. 
Then type 50 and press RETURN. At line 760, we 



POINT to the sector and byte of record 50. At line 
780, we INPUT that record, clear the screen, and 
display record 50 on the screen. 

Remember the number of items in this record, 
press any key, and you will be returned to the option 
routine at line 5000. Type 2 and this time we will 
change record 50. Type U and press RETURN, then 
type 50 and press RETURN. Record 50 will again be 
displayed, but now we have 3 new options. Let's take 
them in order. Type 1, then press RETURN. To 
update the quantity, we merely add to it by typing 
the number of items to add, or subtract by typing a 
negative number. Remember that our quantity field 
is only 3 positions, so don't increase it to more than 
999 items. 

After reading the record from the datafile, we 
store it in a string call REC$. The quantity field is 
updated in the string. It will be updated on the disk 
only when we choose option 3 to exit. Before we exit, 
let's change the description field. Type 2 and press 
RETURN. Choose a new description and type it. 
Now type 3, and the record will be updated on the 
disk. 

To be sure that the record has been changed pro- 
perly, you can choose the display/update option 
then redisplay record 50. By now, you can see the 
advantages of random access updating. You don't 
have to read the first 49 records to get to record 50. 
Once the arrays of the sectors and bytes contain the 
beginning of every record, we can locate any record 
instantly. □ 



26 REM INVENTORY TUTORIAL PROGRAM TO D 

EMONSTRATE RANDOM ACCESS UPDATING 

38 REM *** BY JERRY WHITE **# 

50 DIM SEC(100),BYT(100),REC$(30),DES$ 

(38) , CHOICES (1) : CI=0 : GOTO SOOO 

160 REM *** CREATE INITIAL DATA FILE * 

110 FOR BLANK=1 TO 38 :REC$ (BLANK, BLANK 

1=" " :NEKT BLANK 

120 CLOSE ttl:0PEN ttl, 8, 8, "D .'DATAFILE" 

138 REC$C4,43= a V l :REC$C8,3e3='MTEN DE 

SCRIPTION FIELD" 

140 FOR REC0RD=1 TO 188 

168 IF RECORD<10 THEN REC$ (1,2J="00" : R 

ECS (3, 33 =STR$ (RECORD) : GOTO 220 
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186 IF RECORD <106 THEN RECSd, 1) ="8" : R 

ECS(2,3)=5TRS(REC6RD) :GOTO 228 

288 RECS CI, 3)=STRS (RECORD) 

228 RECS(5,7)=5TRS(RHD(8)*188+186) 

248 PRINT 81;REC$:? :? "RECORD ";RECOR 

D:? RECSiNEXT RECORD 

268 CLOSE 81: GOTO 5888 

388 REM *** CREATE INDEX *** 

318 IF CI=1 THEN RECORD-101 :GOTO 588 

328 TRAP 2888 .'CLOSE 82: OPEN 82,4,8,"D: 

DATAFILE": TRAP 48888 

368 FOR ARRAY=1 TO 188:N0TE 82, SECTOR, 

BYTE 

388 ? :? "RECORD ";ARRAY;" SECTOR ";S 

ECTOR;" BYTE ";BYTE 

488 SEC (ARRAY) =5ECT0R : BYT (ARRAY) rBYTE : 

INPUT 82,R£CS:NEXT ARRAY 

428 CLOSE 82: CLOSE 83:CI=1 

588 REM *** RANDOM ACCESS DATAFILE *** 

528 CLOSE 84: OPEN 84, 12, 8, "D :DATAFILE" 

548 ? CHRS (125):? :? "TYPE D TO DISPLA 

Y A RECORD":? :? "TYPE U TO UPDATE A R 

ECORD" ' 

568 INPUT CHOICES :IF CHOICESr"D" THEN 

788 

588 IF CHOICE$="U" THEN 988 

688 ? CHRSC253) :GOTO 548 

788 ? :? "TYPE RECORD NUMBER TO DISPLA 

Y";:TRAP 788:INPUT RN:TRAP 48888 

728 IF RN<ARRAY AND RN>8 AND RN=INT(RN 

) THEN 766 

748 ? CHRS (253):? "INVALID RECORD NUMB 

ER":GOTO 786 

768 POINT 84, SEC CRN), BYT (RN) 

788 INPUT 84,RECS:? CHRS(125):? :? "RE 

CORD " " RN : • ** RECS 

868 ? :? "PRESS ANY KEY F8R OPTIONS:": 

POKE 764,255:CL0SE 84 

828 IF PEEK (764)0255 OR PEEK (53279) <> 

7 THEN POKE 764,255:G0T0 5688 

848 G6T0 828 

988 ? :? "TYPE RECORD NUMBER TO BE UPD 

ATED";:TRAP 988.-INPUT RN:TRAP 48888 

928 IF RN<ARRAY AND RN>6 AND RN=INT(RN 

) THEN 968 

946 ? CHR$(253):? "INUALID REC8RD NUMB 

ER":GOTO 986 

966 POINT tM,SEC(RN),BYT(RN) 

988 INPUT »4,RECS:? CHRS (125) 

1868 ? :? "RECORD ";RN:? :? RECS 

1818 ? :? "TYPE 1 TO UPDATE QUANTITY" : 

? "TYPE 2 TO CHANGE DESCRIPTION":? "TY 

PE 3 TO EXIT" 

1828 TRAP 1888: INPUT CHOICE: TRAP 48888 

1846 IF CH0ICE<1 OR CH0ICE>3 OR CHOICE 

OINT (CHOICE) THEN ? CHRS (253) : GOTO 18 

88 

1868 ON CHOICE GOTO 1108,1388,1886 

1888 POINT 1*4, SEC CRN), BYT CRN) : PRINT St4 

;RECS: CLOSE 84: GOTO 5868 

1186 ? :? "TYPE POSITIVE NUMBER TO INC 

REA5E ITEMS":? "TYPE NEGATIVE NUMBER T 

DECREASE ITEMS" 

1148 TRAP 1188: INPUT NUMBER: TRAP 48888 

1166 ITEMS=VAL (RECS (5,7)): ITEMS=ITEMS+ 

NUMBER 

1188 IF ITEMS>999 THEN ? CHRS(253):? " 

ITEMS CANNOT EXCEED 999": GOTO 1189 

1288 IF ITEMS<8 THEN ? CHRS (253) : ? "IT 

EMS CANN8T BE A LESS THAN ZERO":GOTO 1 

128 

1228 IF ITEMS<18 THEN RECS (5. 6) ="88" : R 

ECSC7,7)=5TRS(ITEMS) :GOTO 1888 

1248 IF ITEMS<188 THEN RECS (5, 5)="8" :R 

ECS (6,7) =STRS (ITEMS) : GOTO iBOfl 

1268 RECS(5,7)rSTRS(ITEMS) :G8T8 1888 

1386 ? CHRS(125):? :? "RECORD ";RN:? : 

? RECS 

1328 ? :? "TYPE NEM DESCRIPTION UP TO 

22 POSITIONS" 

1348 INPUT DESS:LD=LEN(DESS) 

1366 IF LD>22 THEN ? CHRS (253):? "FIEL 

D T08 LONG, EXTRA IGNORED" 

1386 IF LD=22 THEN 1428 

1488 FOR BLAHK=LD TO 22 :DESS (LEN (DESS) 

+1)=" ":NEXT BLANK 



1428 RECS(9,38)=DESS:G0T0 1888 

2888 ? CHRS (253):? :? "DATAFILE N6T 8N 

DISK:TRAP 48888" 
2818 FOR WAIT=1 TO 588 : NEXT WAIT: GOTO 
5888 
5688 REM **K INITIAL DISPLAY OF OPTION 

5818 GRAPHICS 18:? 86:? 86;" INVENTORY 
OPTIONS:":? 86:? 86;" 1= CREATE FILE 

■ I 

5628 ? 86:? 86;" 2- DISPLAY/UPDATE":? 

86:? 86;" 3= END PROGRAM" 
5648 CLOSE 85:0PEN 85,4 ,6,"K :" :GET 85, 
GC:CLOSE 85:GC=GC-48 
5868 IF GC<1 OR GC>3 THEN 5888 
5888 GRAPHICS 8:P0KE 82 ,1 : SETCOLOR 2,8 
,8:0N GC GOTO 188,368,6688 
6886 GRAPHICS 8:P8KE 82,2:END 



CHECKSUM DATA 

(See pgs. 7-10) 

26 DATA 161,467,887,266,998,773,777,82 

8,284,222,294,135,784,49,688,7431 

318 DATA 667,231,617,598,586,241,761,6 

58,461,288,528,24,426,387,385,6538 

768 DATA 887,785,571,427,729,784,315,3 

11,891,498,769,443,866,682,198,9068 

1888 DATA 743,395,936,868,817,197,63,8 

5,456,987,634,949,21,624,98,7857 

1428 DATA 626,794,547,747,299,492,995, 

631,886,917,6934 
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DISK OIRECTORY DUMP 



16K Disk 



by Tony Messina 



This utility is rather simple in nature, but can 
prove quite helpful when trying to remember what 
program is on which diskette. In order for this utility 
to work, you need the following items: 1) a disk 
drive, 2) a printer (40 or 80 column), 3) an ATARI 
computer with at least 16K of memory. The utility 
itself will give you a neat, formatted hardcopy of 
your disk directory (I told you it was simple!). The 
following article should also give you a general idea 
about IOCBs and the OPEN/CLOSE statements 
which are part of the BASIC repertoire. 

IOCBs. 

K4any programs appearing in this book use OPEN 
and CLOSE statements to perform a particular func- 
tion. I'm sure such questions as "What is being 
opened/closed," "How/Why is it being opened/ 
closed," and "How can I open/close my own 
things?" have crossed your mind, so now would be a 
good time to find out what it's all about!! 

One of the most difficult things to do on any com- 
puter is INPUT/OUTPUT, or I/O for short. Would 
you like to write the program (commonly called a 
driver) to print to the printer or list to the disk or 
input a character from the keyboard? It really isn't all 
that fun. Thanks to those great ATARI folks who 
designed our systems (the operating system in par- 
ticular), we don't have to worry too much about the 
above-mentioned items. We can control out I/O 
through an IOCB or Input/Output Control Block. 

The operating system has eight IOCBs. Each 
IOCB contains information as to the nature of the 
device we want to communicate with, where the 
driver for the device is located, where the buffer for 
the device is located, the length of the buffer, the 
command we are trying to execute on the device 
(OPNE, CLOSE, PUT CHARACTER, GET CHAR- 
ACTER, etc.), timeout values (i.e., how long do we 
try to execute a command before we decide to give 
up), etc. This information is used by the Central 



Input/Output (CIO) portion of the operating sys- 
tem when communicating with the device on the 
IOCB specified. 

Now that we know something about IOCBs, let's 
look at how we set them up. 

OPEN and CLOSE. 

The OPEN command allows us to communicate 
with a device using the CIO facility. We don't have 
to know machine language to access a device. . .we 
can use BASIC instead! OPEN just dedicates an 
IOCB to perform our command. We can think of it 
as opening a hotline to our device. The line will stay 
open until we hang up or CLOSE it. The form of the 
OPEN command is as follows: 

OPEN #IOCB,I/0 CODE, SPECIAL, DEVICE 

Parameters can take on the following values: 

IOCB — Any number from 0-7. Usually only 1-5 
is best, since the operating system uses IOCB for 
the screen/editor, 6 for any graphics window (I'm 
sure you all have used a PRINT #6 statement), and 7 
for LPRINT and Cassette I/O. 

I/O CODE — 4=INPUT, 8=OUTPUT, 12= 
INPUT and OUTPUT, 6=DISK DIRECTORY IN- 
PUT and 9=OUTPUT (APPEND TO END OF 
FILE). 

SPECIAL — Is usually but can be filled in based 
on the device you are using. If you are opening a 
screen mode other than GR.O, you would need to 
put the GR. mode number in the SPECIAL para- 
meter. If you have a sideways printing printer (say 
that 10 times quickly), you could get it to print side- 
ways by putting 83 as the SPECIAL parameter. 
When in doubt, use 0. 

DEVICE — Devices which we can control and 
which BASIC knows about are the KEYBOARD 
"K:", GRAPHICS WINDOW "S:", PRINTER 
"P:", CASSETTE "C:", DISK FILE "D:filename. 
ext", SCREEN EDITOR "E:" and RS232 PORTS 
"R:". 
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When opening a device, we must make sure that 
the parameters make sense. We wouldn't want to 
open a printer for INPUT and OUTPUT, since most 
printers only allow OUTPUT. It also wouldn't make 
sense to open the graphics window for DISK DIREC- 
TORY INPUT. See. . .it's not all that complicated. 

Once we have opened a device, there are many 
things which can be done. Commands such as PUT 
#, GET #, PRINT #, etc. can be executed by BASIC 
directly to the device we have opened. The only thing 
we have to remember is not to use an invalid com- 
mand for the I/O CODE selected. If we opened the 
GRAPHICS WINDOW for OUTPUT, for example, 
then we could not use the GET command. Experi- 
ment using OPEN with its associated commands and 
you'll soon become proficient in the mysterious 
world of ATARI I/O. 

How DDD uses IOCBs. 

This utility opens 2 IOCBs. IOCB 1 is opened for 
output to the printer in LINE 220, and IOCB 2 is 
opened for disk directory input in LINE 230. The 
filename to get has been set to "D:**", since we want 
to see all of the files. DEV$ is simply set to "P:" for 
the printer. I also set all my codes to constants for 
easier reading. The values can be found in LINES 
115-125. 

With these two IOCBs open, the rest of the utility 
is a snap. We input a file name in LINE 380 and 
output it to the printer. A nice thing about the direc- 
tory input command is that it also returns the num- 
ber of FREE SECTORS after the last filename has 
been input. LINE 385 checks for this and routes us 
to LINE 420 when we are done. Another item to 
note is that the printer now recognizes ";" and "," so 
that we can format our output. LPRINT, under cer- 
tain circumstances, will recognize these two charac- 
ters, but it's best to open a channel to the printer and 
do a PRINT # instead. 

The remainder of the utility performs error checks 
and issues prompts for the user. All of the major 
sections have been block commented and should 
present no major problems when you try and figure 
out what is being done. 

How to use it. 

Type in the listing and save it to your disk. You can 
now RUN the program. If you forget to turn on your 
printer or disk, you will be razzed until you do. Just 
follow the prompts and you'll soon have a listing of 
all your directories. You can even print a title (18 
characters max) for each of your directories to help 
jog your memory. 

One last note. If your printer doesn't support the 
expanded print mode, then you must change LINE 
305 by deleting the ESC/ESC/CNTL N sequence 
and also deleting the "*2)" from the centering cal- 
culation. If you have an EPSON printer, just change 
the code for expanded print to the appropriate 
code. □ 



10 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
15 REM * UTILITY tt4 * 

28 REM * DISKCAT UER . 1 * 

25 REM * BY TONY MESSINA * 

38 REM * FOR A.N.A.L.O.G. COMPUTING * 
35 REM WHHHHHaHHHBHHHHBHHHHHHHHHHHHHt 
40 REM * 

45 REM XXXXXXXXXMXMXXXKMMXMM 
58 REM * MAKE SCREEN TITLE * 
55 REM MMKXXXXHXXXXXXXXXXXXX 
60 REM * 

65 GRAPHICS 2 : 5TART=PEEK C560J +PEEK (561 
)*256:P0KE START+9,6:P0KE START+10,6:P 
0KE START+11,5 
70 POKE 712,32:P0KE 711,10 
75 ? tt6:" uQiQiQy •» 0":? tt6:? tt6;" 

GBsQ 0iH HuEp":? «6;" ------------ 

======":? tt6;" BY" 

so ? m -," uJiM m'.imfJi^" -. ? «e ; ■■ oe 
i^'l h -- i&j BjDjadi.a.a t&iiiaiR' = ? ue; 

85 ? tt6;" -----=----=-=----=" 

90 REM * 

95 REM xxxxxxxxxxxxxxxxx 

1O0 REM * VARIABLE INIT * 

105 REM XXXXXXXXXXXXXXXXX 

110 REM * 

115 DIM DEV$(2):DIM TABS (40) : DIM DIREC 

T0RYS(5):DIM FILENAMES (19) : DIM ANSS(l) 

128 DIRECTORY$="D:*.*":TAB$r" 

II 

125 DISK=2 : PRNTER=1 : DIRTAB=10 : C0LMID=4 

: OUTPUTS : NULL=0 : DIRIN=6 : C0UNT=3 : 5PAC 

E=3 

130 REM * 

135 REM XXXXXXXXXXXXXXXXXX 

140 REM * GET USER INPUT * 

145 REM XXXXXXXXXXXXXXXXXX 

150 REM # 

155 ? "K" 

16fl DEV$="P :":TRAP 505:? "SGmUCMIEEmi 

■HjMjEEjH "::input width 

165 if widtho40 and widtho80 then go 

TO 160 

170 IF MIDTH=80 THEN COLMID=MIDTH :G0T0 

215 
175 DIRTAB=1:C0UNT=2:5PACE=2 
180 ? 
185 REM * 

190 REM XXXXXXXXXXXXXXXXXXXX 
195 REM * OPEN DEUICES FOR * 
200 REM * INPUT/OUTPUT * 
205 REM xxxxxKXXXXMMXWMKKXXK 
218 REM * 

215 TRAP 495:LPRINT 
220 OPEN ttPRNTER, OUTPUT, NULL, DEVS 
225 TRAP 50© 

238 OPEN ttDISK,DIRIN, NULL, DIRECTORY* 
235 REM * 

240 REM XXXXKKXXXXKXXXXXXXXXXKX 

245 REM * ASK FOR HEADER NAME * 
250 REM KXKXXXXXXXXXXXXXXXKXXKK 

255 REM * 

268 ? " BlMIM»HjEMOIPF '; : input filen 

AMES 

265 IF FILENAMES^'"' THEN FILENAMES="-D 

EFAULT NAME-" 

270 REM * 

275 REM XXXXKXKKXXXXKXXXKXX 

280 REM * PRINT TITLE OUT * 

285 REM XXXKXKKXKXXXKXXXXKK 

290 REM * 

295 IF LEH (FILENAMES) >18 THEN GOTO 510 

tao TRAP 510 

305 PRINT ttPRNTER; TABS (1. INT ((C0LWID~( 

LEN(FILENAMES)#2))/2))J"4_": FILENAMES 

310 ? ttPRNTER:? ttPRNTER;TABS(l,DIRTAB) 

315 REM * 

328 REM XKXXXKXXKXXKKXXXKXK 
325 REM * PRINT COLUMN ID * 
330 REM XXXKXKXXKXXKKXXXKXK 
335 REM # 

340 FOR HEADCNT=1 TO COUNT:? ttPRNTER;" 
FILNAME/EHT LEN"; TABS (1, SPACE) ; :NEXT 
HEADCNT:? ttPRNTER 
345 ? ttPRNTER:? ttPRNTER; TABS (1, DIRTAB) 
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350 REM * 
355 REM MMXXX 



368 REM # GET 

365 REM ***** 

378 REM * 

375 FOR X=l T 

388 INPUT ttDI 

385 IF LEHCFI 

R:? ttPRNTER; T 
FILENAMES:GOT 

398 ? ttPRNTER 
:NEXT XiGOTO 

395 REM * 

400 REM ***** 

405 REM * CK 



********************** 

FILENAMES AND PRINT * 

XXXXXXXXXXXXXXXXXXXXMK 



COUNT 

SK, FILENAMES 

LENAMES) <17 THEN ? ttPRNTE 

ABSC1, t(C0LWID-16)/2)-lJ J 

420 

;FILENAMES;TABSli, SPACE) J 

345 



410 REM ***** 

415 REM * 

420 CLO SE ttD I 

425 ? 

438 IF AHSSO 

TO 420 

435 IF AN5S=" 

GOTO 460 

448 ? 

PUT ANSS 

445 IF ANS$<> 

TO 440 

450 IF ANSS=" 



XXXXXXXXXXXXXXXXXXMM 
IF USER WANTS MORE * 
******************** 



SK: CLOSE ttPRNTER 

_■'; :INPUT ANSS 
V" AND ANS$<> M N" THEN GO 



DO ANOTHER V/N 







N" THEN ? " laiiiaSMgiKW : 

V" AND ANSSO"N" THEN GO 

V" THEN GOSUB 498 : GOTO 22 
RUN 



INSERT NEW DISK AND HIT <RETUR 



455 GOSUB 490 
460 END 
465 REM * 

478 REM xxxxxxxxxxxxxxxxxxxxxxxx 

475 REM * ERROR TRAPS FOLLOW * 
488 REM MXMXXXXXMXXMXXXXXXMMXXXX 
485 REM * 

498 ? "M 

CHE"; : input 

495 ? " 

0T0 160 

508 ? " 

E ttPRNTER: GOTO 161 

585 ? 

BiBE !, :G0Tg 1 

518 ? "d 

EDYH9-J .8" :GOTO 260 



ANSS : RETURN 



PRINTER DOES NOT RESPOND!! IS 



DISK DOES NOT RESPOND! ! IS 



;G 
:CLOS 



INPUT ERROR CONLY NUMBERS PLEA 



NAME TOO LONG! US 



:? "SHaESHil 



CHECKSUM DATA 

(See pgs. 7-10) 



10 DATA 771, 
7,38,77,571, 
85 DATA 396, 
,181,288,600 
168 DATA 891 
8,821 ,29,276 
235 DATA 287 
94,811,693,8 
318 DATA 166 
88,298,366,5 
385 DATA 23, 
5,318,322,55 
468 DATA 50. 
,898,979,580 



6,123,386,973,790.73,36.95 

96,789,414,6180 

83,555,565,775,274,628,478 

,328,683,286,382,6486 

,741,931,154,989,388,49,94 

,732,876,711,271,8631 

,288,228,291,293,179,615,2 

14,308,828,705,370,6988 

,283,793,563,796,289,603,1 

88,369,296,778,668,7812 

135,387,293,438,296,285,96 

,17,334,135,534,4457 

308,117,84,120,306,488,404 

,4326 



Rainbow Demo 



5 SETCOLOR 2,8,8:P0KE 752,1: PRINT CHRS 

(1251 

18 DIM CSC24) 

20 FOR 1=1 TO 24 

30 READ D 

40 CSCI,IJ=CHRSCDJ 

58 NEXT I 

68 D=USR(ADRCCS)) 

78 END 

108 DATA 162,0,173,11,212,201,32,288,2 

49,141 

118 DATA 18,212,142,24,288,232,232,288 

,246,142 

120 DATA 24,208,248,232 



CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 557,836,238,324,386,388,233,255 
,645,111,599,4476 
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BURP! 



16K Disk 



by Charles Bachand 



Over the years, we have all run across diskettes 
that just would not format. This was probably due to 
a scratch or dent on the disk surface, and even 
though the ATARI 810 disk drive returns the 
addresses of bad sectors to the computer (Huh, I 
didn't know that!), the disk operating system makes 
no use of them. Well, how would you like to be able 
to use those disks that up until now you have been 
feeding to the trash? 

BURP (Basic Unusable-disk Reclaimer Pro- 
gram), is a machine language program that patches 
itself into DOS's disk formatting routine. Being an 
AUTORUN.SYS file, it is loaded when the 
computer is first powered on and is essentially 
transparent to the user. The only programming 
limitation is that no other program can reside within 
the address space $600-$694. 

There are a couple of limitations involved in using 
BURP: 

1 ) The program will still return a bad sector error 
and abort if any bad sector is in the space taken up by 
the disk directory (sectors 360-368) or the disk boot 
(sectors 1-4). 

2) Do not save DOS out to a disk after BURP has 
run without also saving a copy of the 
AUTORUN.SYS file containing BURP to the same 
disk. The DOS will have been patched into BURP, 
and without BURP itself loaded into memory any 
attempt to format a disk will end with DOS dying a 
terrible death! (In other words, it bytes the dust.) 

BURP is divided into three sections. The first is a 
group of patches that load into the exisiting DOS. 
These patches wedge BURP into the Disk Operating 
System, and reduce the error retry count to allow 
the OS to say "I give up!" a lot sooner. 

Next follows the main section of the program that 
converts the bad sector numbers returned by the 810 
disk drive into the corresponding bits of the disk 
directory's Volume Table Of Contents (VTOC). 
The VTOC has a bit for every sector on the disk. If a 
bit is on (1), this tells DOS that it may store data in 



that sector; no other file is currently using it. It also 
follows that if the bit is off (0), the sector is currently 
in use and should not be touched. 

We next compare these bits with those of a freshly 
formatted disk. If the bit is on then BURP will shut it 
off to mark it as being in use. However, if it was in use 
to begin with, then we are in trouble and BURP will 
produce a bad sector error. 

The last part of the program will check the number 
of sector errors on the disk. If there were no errors 
encountered, the program merely writes the first 
directory sector. Otherwise, we build a fake file entry 
with the name "Bad Sectors" and a length of the 
number of bad sectors. This entry is used as a Hag to 
identify which of your disks caused problems. 

The completely documented Macro Assembler 
listing follows, as well as a BASIC program to 
generate BURP. 

There are two more limitations of this program 
that have surfaced. The larger of the two problems is 
the fact that it will not work with Percom disk drives. 
This is due to the fact that the Percom drive does not 
return bad sector numbers to the operating system if 
it cannot format a disk. The second problem shows 
up if you try to duplicate a disk using DOS option 
"J." DOS 2.0S copies all sectors whose correspond- 
ing bit in the VTOC is set, it will try to copy the bad 
sectors which it cannot do. It will instead issue an 
error message. A way around this would be to copy 
individually every file on the disk. 

To generate the BURP program and have it 
SAVEd to a file, run the BURP maker program 
written in BASIC. The object program will be stored 
on file DAUTORUN.SYS, which will automatically 
load the program after DOS is loaded. 

If you want the option of using BURP or not using 
it, simply change the file name specified in the 
opening statement to something other than 
D:AUTORUN.SYS. To run BURP now, it will be 
necessary to call up the DOS Menu and perform a 
binary load from your chosen new file. □ 
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BASIC Listing. 



188 REM +++ BURP +++ 

118 REM BASIC UNU5EABLE-DI5K 

128 REM RECLAIMER PROGRAM 

138 REM 

148 OPEN ttl,8,8,"DsAUT0RUK.5YS" 

158 TRAP 178 

168 READ A:PUT ttl,A:GOTO 168 

178 CLOSE ttl:END 

288 DATA 255,255,148,7,141,7,169,8 

218 DATA 76,13,78,13,76,82,13,142 

228 DATA 13,144,13,32,8,6,165,13 

238 DATA 163,13,288,248,32,181,6,8 

248 DATA 6,144,6,163,8,141,148,6 

258 DATA 141,147,6,172,147,6,177,71 

268 DATA 141,145,6,288,177,71,141,146 

278 DATA 6,288,281,255,288,8,285,145 

288 DATA 6,288,3,76,149,16,148,147 

238 DATA 6,163,8,168,3,78,146,6 

388 DATA 118,145,6,186,136,288,246,42 

318 DATA 42,42,42,168,163,8,56,186 

328 DATA 136,16,252,178,173,145,6,185 

338 DATA 18,168,138,49,69,288,5,184 

348 DATA 184,76,181,18,138,81,69,145 

358 DATA 69,168,3,177,69,56,233,1 

368 DATA 145,69,238,148,6,76,8,6 

378 DATA 172,148,6,248,21,162,18,189 

388 DATA 134,6,9,128,157,6,28,282 

398 DATA 16,245,169,96,141,1,28,148 

488 DATA 2,28,32,113,16,76,25,18 

418 DATA 96,66,97,188,32,83,181,99 

428 DATA 116,111,114,115,224,2,225,2 

438 DATA 133,6 



CHECKSUM DATA 

(See pgs. 7-10) 

188 DATA 347,185,821,83,288,726,842,13 
4 , 363 , 782 , 486 ,378,524, 825 , 266 , 8154 
278 DATA 5,7,637,221,375,239,813,55,76 
1,548,9,748,798,585,21,6482 
428 DATA 948,748,1688 



Assembly listing. 

BURP - Bad Disk Reclaimer Program 

Written by Charles Bachand 

This program patches itseH into 
ATARI'S DOS 2.8S to allow for the 
formatting of physically damaged 
and previously unuseable diskettes 



Patches to DOS 2. 8S 



Note: 



■ 


System Equates 


VTC 


= 


$45 


BAD 


= 


$47 


URTD1R 


= 


$1871 


wWTC 


= 


$1895 


DELDOS 


= 


$1219 


ERDBAD 


= 


$12B5 


D1R 


= 


$1481 



This program will not allow 
the formatting of a disk 
with damaged disk boot sectors, 
or damaged directory sectors. 
Sorry. 



{directory's VTOC pointer 

;bad sector buffer pointer 

{write directory sector 

{write volume table of contents 

;set no DOS 

{normal bad disk sector exit 

;fi1e directory buffer 



ORG 
LDA 


$878C 


ORG 
JMP 


$8D4C 
$8D52 


ORG 
JSR 


$8D8E 
BD5 


ORG 
BNE 
JSR 


$8DA5 
$8D9F 
URTD8 



;no retry on errors 



; bypass bad sector errors 



{patch new error handler 



;do all but first sector 
{write first directory sector 



Routine to mark bad sectors as being 
in use on the disk's VTOC. Patched into 
the DOS at address $8D8E. 

ORG $8688 ;we had to put it someplace! 



{initialize 

;bad sector counter 

;and bad sector index 

{load index 

;get bad sector (low) 

{store it for later 

; increment pointer 

;get bad sector (high) 

jstore it too 

; increment pointer again 

;end of data? 

:No. not yet 

;is low byte $FF? 

:No. not at end yet. 

;Yes. Write VTOC 

jsave index 

;Zero accumulator 

;shift sector number 

;3 bits to the right 

{through high and low bytes 

;rem goes in A as XXX88888 

{decrement count 

;Done 3 times? No. 

jYes. rotate a left 4 

;times, so that it will 

{have data in low bits 

;and look like 88888XXX 

;use value as counter 

{Zero accumulator 

{set carry flag 

{rotate carry through Ace 

{decrement counter 

;At Y'th position? No. 

;Yes. save bit mask in X 

;get byte number 

;add offset to sector map 

;use as VTOC index 

;get bit mask back 

;AND with VTOC 

{Bad sector in use? No. 

;YES! be are in trouble! 

;pull return stack address 

;and report error condition 

;get bit mask again 

{invert allocation bit 

;and store it back in VTOC 

{point to free sectors 

jbyte in VTOC 

;set carry for subtract 

{decrement number by one 

;save it out again 

{increment bad sector count 

{loop back and do it again. 



If no bad sector errors, then just write 
out the first directory sector to disk. 



BD5 LDA 


M 


STA 


BADCNT 


STA 


BDSPT 


BD5LP LDY 


BDSPT 


LDA 


(BAD),Y 


STA 


BSNUM 


INY 




LDA 


(BAD),Y 


STA 


BSNUM+1 


INY 




CMP 


«$FF 


BNE 


BDCONT 


CMP 


BSNUM 


BNE 


BDCONT 


JMP 


WRVTC 


BDCONT STY 


BDSPT 


LDA 


M 


LDY 


13 


BS1 LSR 


BSNUM+1 


ROR 


BSNUM 


ROR 


A 


DEY 




BNE 


BS1 


ROL 


A 


ROL 


A 


ROL 


A 


ROL 


A 


TAY 




LDA 


M 


SEC 




BS3 ROR 


A 


DEY 




BPL 


BS3 


TAX 




LDA 


BSNUM 


ADC 


818 


TAY 




TXA 




AND 


(VTC),Y 


BNE 


BS4 


PLA 




PLA 




JMP 


ERDBAD 


BS4 TXA 




EOR 


(VTC),Y 


STA 


(VTC) ,Y 


LDY 


#3 


LDA 


(VTC) ,Y 


SEC 




SBC 


#1 


STA 
INC 


(vto.y 

BADCNT 


JMP 


BD5LP 
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H there are errors, we will put a file 
entry into the directory telling how many 
sectors are bad and then write it to disk. 



get bad sector count 
Bad sectors' NO. 
Yes. Fi !e name to entry 
from BADFN 
inverse video, WOU! 
to directory buffer area 
decrement counter- 
Done 11 bytes' 5 No. 
mark file as locked 
and in use 

store bad sector count 
write sector to disk 
mark disk with no DOS 



URTD8 


LDY 


6ADCNT 




BEG 


NOERRS 




LDX 


#18 


MOWN 


LOA 


BADFN, X 




ORA 


#$86 




STA 


DIR+5.X 




DEX 






BPL 


MOVFN 




LDA 


#*4B 




STA 


DIR 




STY 


DIR+1 


NOERRS 


JSR 


URTD1R 




JMP 


DELDOS 


RETURN 


RTS 




BADFN 


DB 


'Bad S' 




DB 


'ectors' 


BSNUH 


DS 




BDSPT 


DS 


1 


BADCOT 


DS 


1 



END 



RETURN 



return after patching 

file name used to mark 
the disk as damaged. 

bad sector number- 
bad sector pointer 
bad sector count 

just return after loading 



Swirl Demo 



18 0=8:0=1: SETCOLOR i,5,5:DEG 

28 XI=80:YI=50:GRAPHIC5 23 

38 PLOT XI, YI 

48 FOR 1=1 TO 1888 STEP 5 

58 Q=Q+l:IF Q>3.5 THEN 0=1 

68 C8L0R Q:R=I/10:T=I 

78 X=R*C05CT) :Y=R#SINCTJ 

88 IF Y+YK8 THEM 148 

98 PLOT X+XI,Y+YI 

108 X=CI+C)/16*COSCI+C+90J 

118 Y=CI+CJ/16*SIN(I+C+98} 

128 DRAHTO X+XI,Y+YI 

130 NEXT I 

140 5ETC0L0R 2, 8, 2 : 5ETC0L0R 1,8,5 

150 SETCOLOR 0,8,8:GOSUB 210 

160 5ETC0L0R 8, 8, 2 : SETCOLOR 2,8,5 

178 SETCOLOR 1,8,8:G0SUB 218 

180 SETCOLOR 1, 8, 2 : SETCOLOR 8,8,5 

198 SETCOLOR 2,8,8:G0SUB 210 

200 GOTO 140 

210 FOR K=l TO 13: NEXT K : RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 977,537,75,330,279,7,362,850,4 

82,117,132,836,737,370,877,6968 

168 DATA 373,886,376,895,697,163,3398 
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THE BLACK RABBIT 

2.0 



48K Disk 



by Brian Moriarty 



Let's face it. Backing up disks with a single drive is 
a dull and time-consuming chore. Even with a 48K 
system, ATARI DOS will make you swap at least 
three times to copy a reasonably full disk. And then 
there are those disks DOS won't copy — boot-load 
programs, Letter Perfect files, FORTH screens, 
anything recorded with a non-DOS file structure. 

One day I got sick of disk-swapping and decided to 
write a more efficient disk backup system. I wanted 
to be able to duplicate all 720 sectors of a disk with 
no more than two read/write passes. To accomplish 
this, I had to find a way to cram 360 sectors worth of 
data into RAM at once — 46080 bytes! 

A 48K ATARI contains 49152 bytes of user 
RAM. But the first four pages (1024 bytes) are 
reserved for use by the operating system ROM 
routines. A graphics mode screen and display list 
require an additional 993 bytes. This leaves a 
maximum of 1055 bytes for the disk copier. 

The Black Rabbit fits into this cramped space with 
room to spare. Version 2.0 features simple one- 
button operation with audio/visual prompting, 
automatic formatting of the destination disk and a 
"Visible VTOC" (Volume Table of Contents) that 
lets you check the distribution of data on the source 
disk and monitor the progress of the copy. It "skips 
over" empty sectors and will not crash if it 
encounters an unreadable sector. 
Typing it in. 

Listing 1 is an ATARI BASIC program that will 
create an auto-booting image of the Black Rabbit on 
any disk. Listing 2 is the assembly-language source 
code, created with the MAC/65 Macro Assembler 
by OSS. This listing is only provided to show you 
how the program works; you do NOT have to type it 
in to use the Rabbit. 

Enter each line of the BASIC program carefully. 
Be especially careful with the DATA statements in 



lines 1000-1290. When you're finished, LIST the 
program out to disk and use D:CHECK2 (see page 
9) to verify the accuracy of your typing. Use the 
following procedure to write your copy of Black 
Rabbit 2.0: 

1 . Load the BASIC program into memory and type 
RUN. The line numbers between 1000-1290 will be 
displayed as each DATA statement is checked. If bad 
data is encountered, the program will list the line 
containing the error and stop so that you can correct 
it. Re-RUN the program until all data lines are 
thoroughly debugged. 

2. You will next be prompted to insert a blank disk 
into drive # 1 . Make sure this disk contains no important 
programs or data, because it is about to he completely 
erased. 

3. Press the START key. The destination disk will 
be formatted and a copy of the Black Rabbit will be 
written out to the first six sectors. An error message 
will result if the disk is write-protected or cannot be 
formatted. 

4. The prompt "Rabbit disk okay" means success! 
Remove the Rabbit disk from the drive, replace it 
with one of your regular DOS disks and SAVE the 
BASIC program. You can use it to make extra back- 
up copies of the Rabbit. 

Rabbit, Run. 

Now it's time to test the Black Rabbit. Re-insert 
the Rabbit disk in drive #1, turn off your computer, 
let it rest for a moment and turn it back on. 

It you see "Remove cartridge; requires 48K 
RAM" on your screen, you forgot to remove the 
BASIC cartridge. The Black Rabbit needs every byte 
your computer can spare, and the cartridge de- 
selects an 8K block of RAM. So pull the cartridge 
out and power-up again. You should now be looking 
at the Rabbit's title screen (Figure 1). 
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I by Brian Horiarty 
insert SOURCE disk, press 91310 



Figure 1 

The 18x40 dot matrix on the bottom half of the 
screen is the Rabbit's "Visible VTOC." Each dot 
represents one of the 720 sectors on a standard 
ATARI disk. 

Put the disk you want to copy into drive #1 
and press the START key. The drive will begin 
spinning and you will hear the familiar beep-beep- 
beep of sectors being read into memory. As each 
sector is read, the corresponding dot in the Visible 
VTOC will change to a different character: 
□ indicates a data sector 
indicates an empty sector 
? indicates an unreadable sector. 

The Rabbit will beep again when his memory 
buffer is full. Remove the source disk, insert a blank 
copy disk and press START. Your copy disk will be 
formatted and the source data will be written out, 
one sector at a time. Each written sector will change 
its corresponding dot in the VTOC to an inverse dot 
character. Note that the Rabbit always uses the write- 
with-verify function of the 810 disk drive. It's slower 
than writing without verify, but more reliable. 

The prompt "Insert source disk, press START" 
will re-appear at the end of the first read/write pass. 
Repeat the procedure outlined above. At the end of 
the final read/write pass, the Rabbit will offer to 
make another copy. Press START to re-run the 
Rabbit or press OPTION to boot the copy disk. 

Empty and/or unreadable source sectors do not 
take up any memory in the Rabbit's disk buffer. So if 
the source disk has lots of empty or bad sectors, the 
Rabbit may be able to duplicate the whole thing with 
a single read/write pass. In any case, it will never take 
more than two swaps to copy an entire disk. □ 



Listing 1. 



199 

iio 

126 
139 
148 

159 
160 
TO 



REM 
REM 
REM 
REM 
REM 
REM 
CAM 

4:RE 

0KE 



-iB t K MMK X K K J t»#->eBHBBt-K** 

* BLaCK RABBIT 2.0 MAKER * 

* BY BRIAN HORIARTY * 

* ANALOG COMPENDIUM U.i * 

:DIM BUF3 (7583 , ML5C4J ;F0R T-l 
AD BYTE: MLS CI3=CH8$CBYTEJ iNEXT 
752,1 



179 BUF$fl3="»":5UFSC76SJ-"*";SUE$ (2) - 

bufs:? "«*verifying DATa lines."; 7 "±R 
eading Line "; 

188 B--0;TOTAL:--8;i.IHE = 398: RESTORE 1893: 

TR«P 259 

198 LINE=LINE+18 

298 POSITION 15, 3:^ LINE 

219 FOR 1 = 1 TO 25:8::B + 1 : READ BYTE: TOTS 

L=T0TflL+BVTE : BUF$ CB . B3 =CHR$ (BYTE) : NEXT 

I 
228 IF PEEK(183?-s-256#PEEK£i843 OLIWE T 
HEN ? "4-Line ' , ;LIME;"HiS5ing,":£ND 

238 READ CHECKSUM! IF CHECKSUM^TOTAL TH 
EN 138 

240 GOTO 368 

258 POKE 752.8:IF PEEK (1353 <>6 THEN 36 



268 ? "+00TA lines verified. "s ? "ilnse 
rt a blank disk in Drive tti . " 
278 ? "4-Pr-ess EH3SD to write disk. 2" 
2S8 IF PEEK (532733 <>5 THEN 280 

239 POKE 763,1:PGKE 770. 33 : ' "4For»att 
ing diSk.":K=USRiftDR{M! $33 

380 IF PFEKC7713<>1 THEN ? "lUForwat 6 

rror!":? "Rewove #ri te-protect tab or" 

:? "replace disk.":G0T0 278 

318 ? "^Writing data.*':P0KE 7?9.3?;P0K 

E 773,0:8IJFF£R::ADRCBUF$3 

320 FOR SECTORS TO 6 

338 POKE 773. SECTOR; POKE 773 , INT C3UFFE 

R/2563 :P0KE 772 . BUFFER - f256*PEEK (7733 3 

:X~-USRCADR£ML$3 3 

340 8UFF£R=8UFFER+12S:HEKT SECTOR 

350 ? "iflabbit disk Okay. "SEND 

360 ? "Bad data at line E" J LIME: LIST i. 

INESEND 

370 Oflia 104,76.83,228 

380 REM * M/L DATA 

1800 DATA 0.6, 128.4. 134,4.163,0. 168,14 

5,34,32,77,6,165.135.281,132,176,12.15 

3, 158 . 133, 134, 163 .2582 

1810 DATA 6,32,131.6,76,157,4,162,8,14 

2,138,2,134,123.134. 131. 14 2,68.2.23 2,1 

34,128,134,138.134.5130 

1820 DATA 3, 142,1. 3.134, 144, 24, 165, 88, 

105 , 233 , 133 . 136 . 133 . 138 .165,33, 105 ,8,1 

33 137.133 133 32 77.7734 

IBiS^DftTa'" 6 . !637l32 . '1337.134 , 163 . 6 , 32 , 1 

31,6,24, 165,88, 185,122. 133, 140,144.2,2 

38, 141 .230, 138,2 88. 2. 19584 

1040 D3TA 238,133. 162.2,153.8. 163,14,1 

45. 133,280, 132,248,288,243.24 . 165,138. 

185,248, 133 .138,144,2, 230 ,14151 

1850 DATA 133.202,16.231,32,143,6,24.1 

65 , 138, 181 , 123, 133 , 133 . 155, 13 7, 101 . 123 

, 133,133 , 163, 226 , 133 , 134, 163 . 17338 

1860 DATA 6. 32. .131. 6, 32, 31, 6. 163, 82, 14 

1,2,3,165, 123,141,10,3.155.123. 141,11, 

3,32,33,228, 13328 

1078 DATA 173,3,3.16,4,163,31.283.15,1 

60.127.177,132.208.7,136,16.243.16 9.16 

,298,2. 163,128,133.21373 

1888 DATA 143.160.9.132,77,145,133.238 

, .138 . 208,2 . 238 . 133 , 238 .128. 288 . 2 . 230 , 1 

23, .165. 123,201,2 .298,6. 25353 

1030 DATA 165, 128. 201 .203,249.3! . 165,1 

43 . 291 , 123 . 283 , 181 , 24, 173 , i . 3 , 105 . 128 . 

141,4,3,133,132.173, 5,23387 

1100 DATA 3,105,8,141.5,3,133,133,281, 

183 , 298 . 155, 24 , 165 , 136 , 181 . 138 , .133 , 133 

, 165 . 137 .181.131, 133 . 133 , 31236 

1110 DATA 163,4,133. 134.169,7.32.131,6 

. 32 . 31 . 6 , 198 . 144 . 288 ,32,32.56.6.163.33 

.141,2,3,32.33276 

1128 DATA 33.223.173,3.3.291,1.248.14. 

163,72,133,134.163,7,32.131,6.32. 31 ,6, 

249,224,32,143,35843 

1130 DATA 6,169.37,141.2,3.165.138,141 

,13,3,165,131. 141. 1 I. 3, 158,8.132,77,17 

7, 138 , 133, 143,281, 33312 

1.143 DATA 128.288,5,32,83.223.43,251,1 

69, 1.42. 168,8.145.138,238.133.288,2 ,238 

, 139 , 230 . 138 . 298 , 2 , 230, 4.1736 

1158 DATA 131,165,131 .291,2.298,6,165. 

130 , 281 , 283 . 248 . 38 . .165 , 143 , 281 . 128 , 288 

,193,24,173,4.3,185,128,45838 
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1168 DATA 141,4,3,173,5,3,185,6,141,5, 

3,201 .183,208,172,76,1.5,169,38.133,13 

4,169,7,32,47286 

1178 DATA 131.6,173,31,288,281.6.248.1 

8,281 ,3,288,2 45,32,123,6.76.119.228,32 

,123,6,76,160,4,49854 

1188 DATA 169.8.141.4.3.169,4,141.5,3, 

96,24,165,88. 185.42.133,148,165,89,185 

,6.133,141.96,52815 

1198 DATA 169,188,141.8.218,169,176,14 

1,1, 21 0,1 69, 6. 133, 28. 165, 26, 281, 15, 288 

,250,169.8,141,1 .218.55828 

1208 DATA 173,31,298,281,6,288,249,173 

,31,208,261,7.288,249.96.133,135,160,3 

3.177.134.145,140, 136.16,58486 

1218 DATA 249,96,169,128,133.132,141,4 

,3,169,7,133,133.141.5,3,96,58,101.169 

,111,113,181,6,99,60917 

1220 DATA 97,114,116.114,185,100,103,1 

81 , 27, 0, 114 , 181 , 113, 117 , 105, 114 , 181 , 11 

5,8,26,24.43,6.58,33,62344 

1236 DATA 45,162.236.225,227,235,128,1 

73,225,22 6.226,233. 244 , 128, 146,142,144 

,8,98,121,8,34,114,165,97,66563 

1246 DATA 118,8,45.111,114,185,97,114, 

116,121,41,110,115,181,114,116,0,51,47 

,53, 56, 35, 37, 6,1 66,68466 

1250 DATA 195,115,167,12,0,112,114,101 

,115,. 115, 0,179, 186, 161, 178. 188, 8, 6,8, 4 

1,116,115,161,114,116,78837 

1266 DATA 6,35,47,48,57,8,188,185,115, 

107,12,8,112,114,181,115,115,8,179,186 

,161,178.180,8,8,72893 

1270 DATA 8,0.8,179,180,161,178,138,8, 

116, ill, 6,114, 161, 13, 114, 11 7, 110, 12,6, 

175,176,180,169,175,75459 

1280 DATA 174. 8,116, ill, 8,98, ill, ill, 1 

16,8,0,8.50,181,112,188.97,99,101,6,98 

,97,180,8,35,77294 

1296 DATA 47,48,57,8,106,165,115,187,1 

?., 8, 112, 114, 161. 115. 115, 8,1 79, 188, 161, 

178,180,0,0.6,6.79326 



CHECKSUM DATA 

(See pgs. 7-10) 

566 DATA 539,353,257,477,551,89,898,13 
3, 283,432, 2 25. 174, 837. 123, 7 19, 6898 
250 DATA 919,811,216,854,128,274,351,7 
88 , 597 , 782 . 905 . 252 , 816 , 464 , 37 , 8126 
1818 DATA 166,368.388,886,148,586,481, 
553,689,946, 564 , 821 , 75 , 559 , 785 ,7787 
1160 DATA 357.84,666,352,37,172,294,89 
0,262,573,939,264,656,993,6479 



8188 
8118 
8128 
8138 
8148 
8158 
81*58 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
6258 
8268 
6278 



Listing 2. 



********************** 
* Black Rabbit 2.8 * 
********************** 

Highspeed sector copier 
■for single-drive systems 

by Brian Mori arty 

ANALOG Compendium Volume 1 

OS disk handler equates 

OBJNUtf = $8381 
DCOMND = $8382 
DSTATS = $8383 
DBUFLO = $8384 
DBUFHI = $8385 
SECTLO = $838A 



8288 
8298 
6388 
8318 
8328 
8338 
8348 
8358 
8368 
8378 
8388 
8398 



SECTH1 = $838B 
DVSTAT = $82EB 
DISK 10 = $E453 

; Disk handler commands 

READ = $52 
WRITE = $57 
FORMAT = $21 

; Misc. system equates 



8418 
6428 
6438 
6448 
6456 
8468 
8476 
6486 
8496 



8518 
8528 
8538 
8548 
8558 
8568 
8578 



cVdst 

BOOT' i 

SAUHSC 

C0L0R2 

OLDADR 

CONSOL 

RAMTOP 

AUDF1 = 

AUDC1 = 

RTCLOK 

ATRACT 

COLDSV 



= $8244 

■ $89 

= $58 

= $82C6 

= $5E 

= $D81F 

= $6A 
$D288 
$D281 

= $14 

= $4D 

= $E477 



6598 



8618 
8626 
8638 
8648 
6658 
6666 
8678 
6688 
8696 
6786 
8716 
8728 
8738 
8746 
8756 
8768 
8778 
8788 
8796 



; Interna! program equates 

RECTAL = $86 
UTOTAL = $82 
BP01NT = $84 
PP01NT = $86 
SCREEN = $88 
VTOC = $8A 
LINE = $8C 
SAVEY = $8E 
SBYTE = $8F 
FFLAG = $98 

; Characters for "Visible VTOC" 

DOT = $6E 
DATA = $88 
BAD = $1F 
WRITTEN = $8E 
NOTHING = $18 



; Memory usage 



DUMMY = $8488 

ORIGIN = $8488 

BUFFER = $8786 i Data buffer 



; Dummy buffer 
; Program start 



8818 
8826 
8838 
8848 
8856 



*= ORIGIN 
; 6 bytes to control boot-up 



8878 



.BYTE $88 ,$86 : # boot sects 
.BYTE 0R1GIN&255.0R1GIN/256 
.BYTE ENTRY&255, ENTRY/256 



ENTRY 



8986 ; Init screen line pointer 



8918 
8928 
8938 
8948 
6958 
8966 
6978 



6998 
1886 
1818 
1828 
1838 
1848 



LDA 116 

TAY 

STA (OLDADR) ,Y ; Kill cursor 

JSR TOPLINE 

Check for 48K RAM 

LDA RANTOP 

CMP #$C8 ; $C6 = 48K 

BCS RABBIT ; > OR = 48K 

Print RAM uarnino 
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1858 
1868 
1878 
1888 
1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1288 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1388 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 



LDA WARNING&255 
STA PPOINT 
LDA WARNING/256 
JSR MESSAGE 



1418 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 
1798 
1888 
1818 



FREEZE 

JMP FREEZE 



Infinite loop 



******************** 

* Initialize R/U * 

******************** 

RABBIT 
Initialize important things 



LDX 18 
STX C0L0R2 
STX RTOTAL* 1 
STX UTOTALM 
STX COLDST 
INX 

STX RTOTAL 
STX UTOTAL 
STX BOOT? 
STX DEVNUM 
STX FFLAG 



Black 

Background 
; Clear MSB 
; Ditto 

Coldstart flag 
X= 1 
LSB 
Ditto 
Boot flag 
Drive II 
Format enable 



Setup VTOC screen pointer 



CLC 

LDA SAVMSC 
ADC 1239 
STA SCREEN 
STA VTOC 
LDA SAVMSCH 
ADC 18 
STA SCREEN* 1 
STA VTOC+1 

Print title 

JSR T0PL1NE 
L&A #TITLE4255 
STA PPOINT 
LDA KTITLE/256 
JSR MESSAGE 



Reset screen pointer 



CLC 

LDA SAVMSC 
ADC #122 
STA LINE 
BCC DODOTS 
INC L1NE+1 



Addr of screen 
6 1 ines down 



; X=2, Y=3 



; Init VTOC display matrix 

DODOTS 

INC VTOC 

BNE MATRIX 

INC VTOC+1 
MATRIX 

LDX 12 
L00P1 

LDY 18 

LDA *D0T 
L00P2 

STA (VT0C),Y 

INY 

CPY S248 

BNE L00P2 

CLC 

LDA WOC 

ADC 1248 

STA VTOC 



1828 

1838 

1348 

1858 

1868 

1878 

1888 

1898 

1988 

1918 

1928 

1938 

1948 

1958 

1968 

1978 

1988 

1998 

2888 

2818 

2828 

2838 

2848 

2858 

2868 

2878 

2888 

2898 

2188 

2118 

2128 

2138 

2148 

2158 

2168 

2178 

2188 

2198 

2288 

2218 

2228 

2238 

2248 

2258 

2268 

2278 

2288 

2298 

2388 

2318 

2328 

2338 

2348 

2358 

2368 

2378 

2388 

2398 

2488 

2418 

2428 

2438 

2448 

2458 

2468 

2478 

2488 

2498 

2588 

2518 

2528 

2538 

2548 

2558 

2568 

2578 

2588 

2598 



MORE 



BCC MORE 
INC VTOC+1 
E 

DEX 
BPL L00P1 



****************** 
» READ Routine * 

****************** 

READER 
Reset buffer addr pointers 

JSR REPOINT 
Update VTOC pointer 

CLC 

LDA SCREEN 
ADC RTOTAL 
STA VTOC 
LDA SCREEN+1 
ADC RTOTAL+1 
STA VTOC+1 

Print READ prompt 

LDA #RPR0MPT&255 
STA PPOINT 
LDA *RPR0MPT/256 
JSR MESSAGE 

JSR UftIT ; START key 



LDA DREAD 

STA DCCWO 



Set READ mode 



************************ 

* Start of READ loop * 
************************ 

P10QP 

Update sector M 

LDA RTOTAL 
STA SECTLO 
LDA RTOTAL+1 
STA SECTHI 

JSR DISKIO ; 
LDA DSTATS ; 
BPL SECSTAT ; 
LDA IBAD 
BNE SHOUSTAT 



Fetch sector 
Check status 
Branch if okay 



; Check sector data for status 

SKSTAT 

LDY M7F 
NEXTBYTE 

LDA <BPOINT),Y 

BNE DATAID 

DEY 

BPL NEXTBYTE 

LDA #N0THING 

BNE SHOUSTAT 
DATAID 

LDA IfDATA 
SHOUSTAT 

STA SBYTE 

LDY #8 

STY ATRACT ; Attract off 

STA (VTOC),Y 

; Update VTOC addr pointer 
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2618 

2628 
2639 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 
2788 
2798 



2818 
2828 
2838 
2848 
2358 
2868 
2878 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2988 
2998 
3888 
3818 
3829 
3838 
3849 
3959 
3869 
3979 
3839 
3998 
3199 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3249 
3259 
3269 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 



INC VTQC 
GNE UPCOUNT 
INC VTOC+1 
UPCOUNT 

INC RTQTAL 
ENE SECTMAX 
INC RTOTAL+1 

; End of disk? 

LDA RTOTAL+1 
CMP H82 
ENE DATACHECK 
LDA RTOTAL 
CHP HD1 
BEQ WRITER 

; Check for data sector 

fjATACHECK 
LDA SBYTE 
CMP ODATA 
BNE RLOOP 

; Add 128 to buffer pointers 

' CLC 

LDA OBUFLO 
ADC #*89 
3 T A DBUFLO 
STA BPOINT 
LDA DBUFHI 
ADC II 
STA OBUFHI 
STA BP0INT+! 

Check if buffer full 

CMP HBC ; Top of buffer' 
BNE RLOOP ; No; keep going 

; ******************* 
; * WRITE Routine « 
; ******************* 

WRITER 

; Init VTOC pointer 

' CLC 

LDA SCREEN 
ADC WTOTAL 
STA '/roc 
LDA SCREEN+i 
ADC UTOTAL+1 
STA VTOC+1 

; Print WRITE prompt 

LDA 8WPRQMPT&255 
STA PP0INT 
LDA IWPROMPT/256 
JSR MESSAGE 



JSR WAIT ; 

' DEC FFLAG 
BNE NOFORM ; 

; Format disk 

ERASE 

JSR DUHPOINT 

LDA ttFORMAT 

STA DCGMND ; 

JSR OISKIO ; 



START key 
Skip if Pass 2 

; buffer addr 

format cmnd 
Do it 1 



3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3539 
3549 
3559 
3569 
3578 
3588 
3599 
3698 
3618 
3629 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
3388 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3338 
3399 
3999 
3918 
3928 
3938 
3946 
3958 
3969 
3978 
3988 
3998 



4818 
4828 
4838 



4858 



4878 
4838 
4898 
4188 
4118 
4128 
4138 
4148 



; Check for okay format 

' LDA DSTATS 
CMP #1 
BEQ NOFORM 

; Print bad format warning 

' LDA HBADF0RM&255 
STA PPOINT 
LDA HBADFORM/256 
JSR MESSAGE 
JSR WAIT 
BEQ ERASE 

NOFORM 

' JSR REPOINT ; Reset pntrs 

LDA WRITE 

STA DCOKND j WRITE coimand 

i 

; ************************* 

; * Start of WRITE loop * 
; ************************* 

WLOOP 

; Update setor * 

' LDA WTOTAL 
STA SECTLO 
LDA UTOTAL+1 
STA SECTHI 

; Get status of next read 

' LDY *8 
STY ATRACT 
LDA (VTOC).Y 
STA SBYTE 

; Branch depending on status 

CMP #DATA 

BNE SKIPSECT ; If no data 

rjURITE 

JSR OISKIO ; Write sector 
BMI DURITE 

; Display write status 

SKIPSECT 

LDA WRITTEN 

LDY #8 

STA (VTOC) ,Y 

■ Update VTOC, WTOTAL 

INC VTOC 

BNE WRUP 

INC VTOC+1 
WRUP 

INC WTOTAL 

BNE WSECTMAX 

INC WTOTAL+1 
WSECTMAX 

LDA WTOTAL+1 

CMP #$82 

BNE BUFLOOK 

LDA WTOTAL 

CMP HOI 

BEQ FINISHED 

; Should buffer addr be updated? 
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4156 
4148 
4176 
4186 
4198 
4266 
4218 
4228 
4238 
4248 
4258 
4268 
4278 
4288 
4298 
4386 
4318 
4326 
4338 
4348 
4358 
4348 
4378 
4388 
4398 
4488 
4418 
4428 
4436 
4448 
4458 
4448 
4476 
4488 
4496 
4586 
4516 
4526 
4538 
4548 
4558 
4546 
4578 
4589 
4598 



BUFLOOK 

LOA SBYTE 

CMP SDATA ; Update bufadr? 

BNE WLOOP ; No; next sect 

i 

; Update buffer address 

' CLC 

LDA OBUFLO 
ADC 8*88 
STA OBUFLO 
LDA DBUFH1 
ADC #6 
STA DBUFHI 

; Buffer lull? 

FULBUF 

CMP tiBC 
BNE WLOOP 

JMP READER ; Next pass 

■ ***************** 
; * End routine * 
; ***************** 

Finished 

lda 8c0mplete&255 
sta ppoint 
lda #cqmplete/256 
jsr message 

DECIDE 

LDA CONSOL 

CMP 14 

BEG RERUN 

CMP #3 

BNE DECIDE 

JSR LETGO 

JMP COLDSV 
RERUN 

JSR LETGO 

JMP RABBIT 



; START press? 
; OPTION? 

; Cold boot 



4418 
4426 
4436 
4448 
4456 
4446 
4478 
4486 
4698 
4780 
4718 
4728 
4738 
4748 
4758 
4748 
4776 
4788 
4798 
4888 
4818 
4826 
4838 
4846 
4856 
4848 
4878 
4886 
4896 
4986 
4916 



; Re-run Rabbit 

■ ***************** 
; * Subroutines * 
; ***************** 

; Point to dummy buffer 

DLMPOINT 

LDA #DUMMYi255 
STA DBb'FLO 
LDA tDUMMY/256 

STA DBUFHI 
RTS 

; Point to top screen 1 me 

fOPLM 

CLC 

LDA SAW3C 

ADC #42 ; X=2, Y=l 

STA LINE 

LDA SAUMSC+1 

ADC #6 

STA LINE+1 

RTS 

; Beep and wait -for START key 

tSftlT 

LDA #108 ; Freq = 168 

STA AUDF1 

LDA #*AA ; D It U = 18 

STA AUDC1 

LDA #6 

STA RTCLOK ; Clear count 



4928 
4938 
4946 
4958 
4946 
4978 
4988 
4996 
5686 
5818 
5828 
5836 
5648 
5858 
5046 
5876 
5888 
5096 
5186 
5118 
5128 
5138 
5148 
5156 
5146 
5178 
5188 
5190 
5206 
5216 
5220 
5236 
5246 
5256 
5246 
5278 
5288 
5296 
5388 
5318 
5328 
5338 
5346 
5356 
5348 
5378 
5388 
5398 
5480 
5418 
5426 
5436 
5448 
5456 
5440 
5470 
5480 
5490 



5518 
5528 
5538 
5546 
5558 
5540 



BEEP 

LDA RTCLOK 

CMP #15 ; 1/4 sec 

BNE BEEP 

LDA 88 

STA AUDC! ; Silence' 

; Check key 

H0LD1T 

LDA CONSOL 

CMP #6 

BNE H0LD1T ; Pressed? 
LETGO 

LDA CONSOL 

CMP #7 

BNE LETGO ; Till released 

RTS 

; Print text messages 

MESSAGE 

STA PPOINT* 1 

LDY #33 
NEXTPRINT 

LDA (PPOINT) ,Y 

STA (LINE),Y 

DE'Y 

BPL NEXTPRINT 

RTS 

; Set buffer pointers 

REPAINT 

LDA #BUFFERfc255 
STA BPOINT 
STA DBUFLO 
LDA #BUFFER/254 
STA BPOINT+1 
STA DBUFHI 
RTS 

; ******************* 
; * Messaqe texts * 
■ ******************* 

WARNING 

.SBYTE "Remove cartridge; requires 48K RAH" 

TITLE 

.SBYTE "Black Rabbit 2.8 by Brian Mori arty 

^PROMPT 

.SBYTE "Insert SOURCE disk, press START 

UPRQHPT 

.SBYTE "Insert COPY disk, press START 

COMPLETE 

.SBYTE "START to re-run, OPTION to boot 

6ADF0RM 

.SBYTE "Replace bad COPY disk, press START 

' .END 
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DISKTOOL REV. 3 



32K Disk 



by Tony Messina 



Disk Tool is designed to work with an ATARI 
400/800/ 1200 with at least 32K of memory and up 
to 4 single-density disk drives. The key is SINGLE 
density. PERCOM, RANA, MICRO- 
MAINFRAME and other double density drives can 
run Disk Tool, but only in the single-density mode. 
Sorry, but Disk Tool was designed and written back 
in the olden days BD (before double density), and 
would require a complete overhaul in every aspect. 

Disk Tool history. 

My need for a disk utility made its appearance 
shortly after my disk drive arrived in March, 1981. 1 
was plagued with disk link errors and crashed files all 
over the place. To put it mildly, "Boy, was I really 
mad!" It was then I decided to write a program that 
would allow me to access any sector on the disk. To 
make a long story short, I got a copy of the DOS 1 
source listing and ATARI Tech Manual. I then 
locked myself in the den and proceeded to work. 50 
gallons of coffee, two power outages and 5 billion 
phone calls to ATARI later, I emerged victorious. I 
had actually managed to READ and WRITE to a 
disk sector without using the File Management 
System (FMS) or Utility Code in DOS 1. Yaaayy!! 

When DOS 2 arrived on the scene, I converted the 
Tool. Some letter I had received prompted me to 
organize the Tool and publish it as a 2-part article in 
A.N.A.L.O.G. Computing. Response to the pro- 
gram and the article was outrageous. When A.N.A.- 
L.O.G. editor Lee Pappas mumbled something 
about a Compendium, I saw the opportunity not 
only to improve the article and documentation, but 
also the method by which I could include the most 
requested enhancements to the Tool. So here it is, 
everything you ever wanted to know about disk 
structures and Disk Tool. And away we go . . . 

Disk sector structure. 

The ATARI 810 disk drive, in conjunction with 
the File Management System (FMS), organizes data 
on a diskette into blocks called sectors. There are 



720 sectors (numbered from 0-719) on each diskette 
after it is formatted by the Disk Operating System. 
The sectors are laid out in what are known as tracks. 
There are 40 tracks per diskette, each containing 18 
sectors. To clarify the last two statements, I have my 
patented "formatted diskettes are like onions" dog 
and pony show. Next time you cut an onion in half 
(when you make onion rings, mushrooms and 
onions, etc.), lop off a hunk in the middle about 
1/4 inch wide. Now turn the onion so that the big 
round part faces you. Each individual ring of that 
onion is exactly similar to a track on the diskette. Go 
ahead, pull off the outer ring. Now, if you cut that 
ring into 18 equal pieces, each piece would repre- 
sent a sector. The outer ring is track 0. As you move 
inward, the next ring is track 1 and so forth until you 
reach track 39. Each track would contain 18 sectors. 
Track contains sectors 0-17, track 1 has sectors 18- 
35, etc. 

Now you have an idea of how a diskette is organ- 
ized. Disk Tool is designed to work at the sector 
level. Although there are 720 sectors on each 
diskette, not all sectors are available to you, the user. 

You've just formatted a diskette. Ahhh, the feeling 
of power, 720 sectors to store all of your programs. 
You hit the A OPTION in DOS (just to see that 
magic number 719). Upon hitting RETURN, the 
number 707 appears when using DOS 2 and 709 
appears when using DOS 1. What! What happened? 
Well, it's quite simple, friends. Although there are 
720 sectors, only 707 are available for your use with 
DOS 2 and 709 sectors with DOS 1. The other 
sectors are reserved for use by DOS. The disk direc- 
tory steals 8 sectors starting at sector 361 and 
running to 368. One sector (360) is allocated for the 
VTOC (Volume Table of Contents, pronounced 
"Vee-Talk"). The boot portion of FMS also 
occupies 3 sectors (1,2,3) for DOS 2, only 1 sector 
for DOS 1 . That's what happened to your 12 missing 
sectors for DOS 2 and 10 missing sectors for DOS 1 , 
so don't be alarmed. 
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With that out of the way, it's time to discuss the 
different types of sectors. Yes, I know it sounds con- 
fusing . . . after all, isn't a sector a sector? The answer 
is yes. Each sector is capable of holding 128 bytes of 
data. The manner in which the data is structured on a 
sector is dependent on a particular sector's purpose 
or type. I like to define sectors as being of 4 types: 
l.)Data Sector: Containing program 
information, text files, etc. 

2.) Boot Sector: Containing ML program 
data. 

3.) Directory Sector: Containing program 
names and associated data. 

4.)VTOC Sector: Sector containing free 
count and disk bit map. 

Let's take a look at the differences and similarities 
of each type of sector. 

Data sectors. 

This is the most common type of sector on your 
disk. Technically, all the sectors are data sectors. I 
use this name only to distinguish its format from 
other types of sectors. 

Whenever you use the commands SAVE 
"D:XXX", LIST "D:XXX" or invoke the Binary 
Save option from DOS, the actual programs are 
written to the disk in data sector format. The format 
is quite simple. Bytes 0-124 contain actual program 
data. Bytes 125-127 contain sector identity data or 
"link data." Figure 1 illustrates this type of format. 








124 125 127 




125 Bytes of Program Data 


Link 
Data 



Figure 1. 
Data Sector Format. 

The link data for DOS 2 is formatted as in Figure 
2, while link data for DOS 1 is as per Figure 3. 

Byte 125 Byte 126 Byte 127 



File ft 
this sector 
belongs to 



111 I II I I I 
7|h|5i4h|2|l|o| 
i I I I I II I 



U of actual program 

bytes (0-7 D) in 

this sector 



Byte 125 



10 Bits 
Next sector of this file 

Figure 2. 
DOS 2 link structure. 

Byte 126 



Byte 127 



File U 

this sector 1 

belongs to 


7 


6 


5 


4 


3 


2 


1 





Sector Sequence 
number 

o-x* 



10 Bits 



Next sector of this file 
*The first sector of a file contains 0, the second 1 etc. . . the last sector of 
a file is unique however. The value in Byte 127 will contain (# of actual 
bytes used + 1 ) + $80 for the last sector of a file. 

Figure 3. 
DOS 1 link structure. 



Notice that the lower two bits of byte 125 and all 
of byte 126 combined point to the next physical 
sector of this file. A zero (0) indicates that this is the 
last sector of a file. 

One variation in data sector format occurs when 
the Binary Save option is used to save an area of 
memory to the disk. The variation occurs with the 
first 6 bytes of the first sector of the binary file. 
Those 6 bytes are commonly referred to as the 
"binary file header." The header is formatted as per 
Figure 4. 



Byte 







LSB 


MSB 


LSB 


MSB 


FF 


FF 


Start 


Start 


End 


End 






addr 


addr 


addr 


addr 



Figure 4. 

If, for example, you answer the Binary Save Prompt 
DOS with "MLPROG,0600,065F," then the first 6 
bytes of the first sector of disk storage for this pro- 
gram would look like Figure 5. 

B Y te „ i a c 



FF 


FF 


00 


06 


5F 


06 



Binary file 
definition bytes 



Start addr 
LSB/MSB 



End addr 
LSM/MSB 



Figure 5. 
Binary program save example. 

Directory sectors. 

There are 8 directory sectors starting at sector 361 
and running sequentially to sector 368. The 
directory contains the names of all the programs on 
the diskette along with the other information about 
the program. Each directory entry uses 16 Bytes. 
There is enough room to hold 8 program names (and 
associated data) on 1 sector. (16 Bytes * 8 names + 
128 Bytes or 1 sector.) Therefore with 8 sectors 
available, we can have (8 sectors *8 names per sec- 
tor) = 64 possible file names total. On a directory 
read, DOS starts at sector 361 and keeps reading 
sectors until there are no more names. Directory 
entries have the following format: 



Entry 


Entry 1 


I 


Entry 7 



Byte 


^0 


*** 

1 




2 




3 




Directory sector 
4 5 12 13 15 


Directory 
entry 


Status 
byte 


Length 

(in sectors) 

LSB 


Length 

(in sectors) 

MSB 


Start 
>ector 
LSB 


Start 
sector 
MSB 


Filename 

(primary) 

or space 

(S20) 


Ext 

or 

($20) 


Bits i 


7 6 5 4 3~~~2~- -1-^0^ 




Status 
byte 


File 
deleted 


File 
in 
use 


File I 
locked l 




Spare 


DOS 
2 
file 


File 
open 

for 
output 





Figure 6. 
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NOTE: Bits set (+1) indicate condition listed. 
Bit 6 set indicates the file is in use. 
Bits can be combined for multiple status. 
Example: Bits 1,5 and 6 set would mean file was 
created by DOS 2, it is locked and in use. 

Here is a quick reference to the possible status 
values. 

$00=File is never used. 

$01=File open for output. 

$02=File created by DOS 2 (if bit not set, 
assume DOS 1). 

$20=FiIe locked. 

$40=File in use. 

$80=Entry deleted. 
How does DOS use the information we have dis- 
cussed so far? In simple terms, when you type LOAD 
"D:XXX" in BASIC, the FMS opens the directory 
for input, reads in the directory sectors starting at 
sector 361 and searches for a match. If it finds an 
entry that matches the program name you asked for, 
FMS extracts the starting sector from bytes 3 and 4 
of the entry and also the length from bytes 1 and 2. 
FMS then positions the read/write head of the disk 
drive at that sector, reads in the sector, extracts the 
link information (to find the next sector) and checks 
to see if this sector actually belongs to the file you 
wanted. If it does, then FMS checks to see if this is 
the last sector to load. (Remember, the next sector to 
load is in the link bytes. ) FMS keeps loading until the 
next sector to load is 0. 

If, during this process, the file number of the 
sector just loaded does not match the one you are 
looking for, a file number mismatch error (#164) 
occurs. This usually means that either the disk link 
information of the previous sector was incorrect, or 
possibly the link data of the current sector is 
incorrect. We'll discuss how to fix this later. 

Boot sectors. 

I use the term "boot sector format" when referr- 
ing to files which start at sector 1 and run 
contiguously to sector X, where sector X is the 
ending sector. These files do not need any language 
cartridges or DOS. They are completely self- 
contained programs which load and execute upon 
powering up the computer. Do not confuse these 
with AUTORUN.SYS files. 

Remember the header bytes for binary files saved 
using the Binary Save Option of DOS? Well, boot 
sectors have a similar structure. Sector 1 of the disk 
contains the magic header information which is 
structured as per Figure 7. 

Byte „ , , , - 



Ohy 
tradition 


# of 
sectors 
to load 


LSB 
Load 
addr 


MSB 
Load 
addr 


LSB 
Init addr 


MSB 

Inir addr 




Boot s 


„'Ctor heade 

Figure 


' (sector 1 

7. 


) 





Whenever you turn on your computer, a check is 
made to verify if any cartridges are present. If a car- 
tridge is present, the "Allow Disk Boot Bit" (Bit Oof 
location $BFFD) is checked. If it is zero (as it would 
be if no cartridge were present) then the ROM boot 
routine is invoked. This routine goes out to sector 1 
of the disk, reads in the data contained there and 
interprets it. Byte 1 tells the system how many 
sectors to read. Bytes 2 and 3 tell the system where to 
load the data, and bytes 4 and 5 tell the system where 
to start executing the ML program once it is loaded. 

Boot sectors do not have any link data. 
Consequently, each boot-type sector can contain 
128 bytes of program information. I said "can" 
because the last sector may be a short sector con- 
taining less than 128 bytes. The FMS for DOS 2 
contains 3 boot sectors worth of program data, while 
the FMS for DOS 1 has only 1 boot sector. 

VTOC sector structure. 

Sector 360 contains the VTOC or Volume Table 
of Contents. The purpose of the VTOC is to keep 
track of which sectors on the disk are or are not being 
used. 

There are basically two important parts of the 
VTOC: the miscellaneous portion (bytes 0-4) and 
the sector use map (also called sector bit map). Bytes 
0-4 are used as follows: 

Byte 0=Use byte (2 for DOS 2, 1 for DOS 

1). 

Bytes 1 & 2=Total # of sectors (LO/HI 
format). 

Bytes 3 & 4=Free sector count (LO/HI 
format). 

The sector use map begins at byte $0 A and runs to 
byte $63. Each bit of each byte represents one sector 
on the disk. If the bit is zero, then that sector is being 
used. If the bit is 1, then that sector is available for 
free. Bit 7 of byte $0A represents sector 0, which 
does not exist (see experiment 5 for explanation). Bit 
6 of byte $0A represents sector 1, etc., all the way 
down to bit 1 of byte $63 which represents sector 
719. Use Disk Tool to examine the maps of your 
own diskettes. 

Well, that about wraps up our discussion on disk 
data structures. I realize I've clobbered you with 
many new concepts and material. The best way to 
digest this information is to use the Disk Tool 
experiments which follow. 

Disk Tool structure. 

You may have noticed that Disk Tool consists of 3 
programs: an AUTORUN.SYS creator program, a 
machine language loader and the actual BASIC code. 
Why 3? Well, the original intent was to make Disk 
Tool fit into a 16K disk system. That was when the 
Tool was small. Now it's so huge that it won't all fit, 
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so I kept it at three programs. Disk Tool sets itself up 
as follows: 

1.) Protect 3000 bytes of low end memory 

and disable the break key (via AUTORUN. 

SYS); 

2.) Load the ML portion of Disk Tool into 

the protected area, and load the Disk Tool 

BASIC program; 

3.) Execute Disk Tool from BASIC. 

Since I believe it is more important to know how 
to use this utility, I won't get into a long-winded 
dissertation about how it works (as I haven't been 
long-winded already in this article). If you study the 
listings along with the documentation, you should be 
able to get a very good understanding of what is going 
on. 

Warnings. 

Disk Tool will happily allow you to wipe out your 
directory, the VTOC, DOS boot sectors or any 
other sector on your disk. It will ask you to verify 
prior to writing, but once a sector has been written, it 
may be too late. You don't need to be an advanced 
systems programmer to use Disk Tool — only a 
careful programmer. It is suggested that you read the 
descriptions of each function as presented, and then 
perform all of the experiments in order to become 
familiar with Disk Tool and its capabilities. 

OK, warnings are behind us. Let's move on. 

Getting things together. 

The first thing to do is to get a new diskette, format 
it and write out DOS 2 to the diskette. Type the list- 
ings in order from program 1 to 3. SAVE the three 
programs to your new disk. Suggested filenames 
follow: 

1.) AUTORUN. SYS maker- MAK- 

AUTO.UTL 

2.) ML loader-DSKTOOL.PTl 

3.) Disk Tool BAS1C-DSKTOOL.PT2 

These are only suggestions. If you decide to 
rename the BASIC Disk Tool portion, you must 
change the RUN command in the ML Loader so that 
you don't get a file not found error. Run the AUTO- 
RUN. SYS maker first so it can create the AUTO- 
RUN. SYS file. Power down, power up with the same 
disk and type RUN "D:DSKTOOL.PTl ." 

A note on typing. 

The program listings for Disk Tool are fairly large 
(that's an understatement). Suffice it to say if any 
data is missing or erroneously typed in, the Tool will 
not work correctly. I suggest that you purchase the 
disk version of this Compendium. You'll not only 
save yourself hours of typing, but you will be assured 
that all programs will work correctly. I have spent 
over 200 hours debugging, testing and ensuring that 
the listings presented here are exact duplicates of my 
working copy of Disk Tool. It really does work! And 
now back to our regularly scheduled Disk Tool. 



Using Disk Tool (finally!). 

I know everyone has Disk Tool running. (Those 
of you who don't keep trying.) The first thing you 
will see is the Command Menu and a "COMMAND 
OR SECTOR NUMBER" prompt. To examine any 
sector, just type in the number and hit RETURN. 
Only sectors 1-720 can be examined. Any number 
< 1 or > 720 will generate an error message. Sector 
numbers can be entered in either decimal or hex (if 
preceded by a $). Let's try it out. Put in any of your 
program diskettes. 

Experiment #1: 
Look at Directory Sector. 

Answer the prompt with 361 and hit RETURN. 
You will see the first sector of the directory. Com- 
pare each entry with the format of Figure 5. Once 
you feel comfortable with the format of the direc- 
tory, move on to the next experiment. 

Experiment #2: 

Look at Formatted Directory Output 

with "D" Command. 

Answer the COMMAND OR SECTOR 
NUMBER prompt with a D and hit RETURN. A 
formatted display should appear. All numbers 
appear in hex notation. This option displays 2 
sectors worth of directory data ( 16 program names). 
The sector number is the actual sector at which that 
directory entry resides. FILENAME is self- 
explanatory. START is the first disk sector which 
contains data pertaining to that program. LEN is the 
length or number of sectors that file contains. FIL#is 
the entry number in the directory for that file; and 
STAT is the file status in human readable form 
where: 

*=File locked. 

U= in use. 

D=File has been deleted. 

l = File created by DOS 1. 

2=created by DOS 2. 

To examine more directory sectors, hit "+" and 
press RETURN. The new sectors will appear. To 
abort the directory format, just hit RETURN and 
our friend "COMMAND OR SECTOR 
NUMBER" will appear. 

Experiment #3: 
Trace/Examine a File. 

Now find a file you want to examine from the 
directory listing. (Try one other than DOS. SYS or 
DUP.SYS. ) Find the start sector number for that file 
under the START column. Since the start number is 
in hex, type $ followed by the number. You don't 
need to type in leading zeros. If the start number was 
00BF, then type $BF, for 01 CD type $1CD, etc. 
Then hit RETURN. The sector will appear in 
HEX/ATASC1I format along with the sector num- 
ber, next sector and file information. SECTOR 
NUMBER indicates the current sector number being 
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displayed. NEXT SECTOR points to the next sector 
containing data for this file. FILE NUMBER is the 
file number to which this sector belongs. The next 
sector does not have to be the current sector number 
+ 1 (more on this later). 

When you're ready to look at the next sector, you 
can enter the number and hit RETURN. If the next 
sector happens to be the current sector +1, just hit 
RETURN or "+" and RETURN. If you want to 
look at the current sector -1, type "-"and RETURN. 
Trace your file, examining the format of the data, etc. 
Remember Figure 1. Try to look at all types of files: 
Binary, SAVE files, ASCII files, etc., and compare 
these with the appropriate figures. When you hit the 
end of a file, you'll see that the next sector pointer 
will equal zero. 

Experiment #4: 
Change Bytes with "C" Command. 
Call up sector 720 on the disk. If it is all zeroes 
then you can use it. If it isn't, type "-" and hit 
RETURN until a sector is displayed with all zeros. 
At the prompt COMMAND OR SECTOR 
NUMBER, type in C and hit RETURN. The screen 
should change to yellow and a prompt should 
appear. Move the cursor (CTRL up, down, left, 
right, arrow, etc.) to the 1st hex value in byte 00 line. 
Replace the 00 values with the following: 

44 49 53 4B 54 4F 4F 4C 

Then hit RETURN. Make sure you overwrite each 
value of 00 and space between each byte. If you have 
done everything correctly, you should see a "secret 
message." 

The C function only changes memory locations. 
Nothing has been written to the disk. You can only 
change one display line at a time. RETURN must be 
hit after your line changes are satisfactory. If you 
wish to change more data on the sector, simply hit C 
again, make your change, hit RETURN, etc. 

Experiment #4A: 
Change Bytes (ATASCII method). 

Follow the procedure in Experiment #4. To 
change bytes, move the cursor over to the hex para- 
meter to change. Hit the space bar to blank out the 
first parameter of the hex number. Now type the 
ATASCII letter or number you want. Continue with 
the rest of the line, always remembering to precede 
the character you want with a space. Hit return and 
check your work. 

Experiment #5: 
Writing to Disk with "W" Command. 

As I mentioned previously, writing to the disk can 
be dangerous. Be careful! Sector 720 should be safe. 
Why? Well, there is a bug in DOS. DOS can only 
handle sector numbers from to 719. The disk 
drive, however, will only accept commands for 



sectors 1-720. Some software developers have taken 
advantage of this useful quirk to protect their disks. 
So don't write to 720 if something was there. If all 
was OK and you did Experiment #4, hit RETURN. 
Now type W and hit RETURN again. The screen 
will turn red and a verify prompt will appear. Answer 
Y to the prompt if you are sure you want to write to 
the disk. When the write is complete, the screen will 
turn green again and we're back to the COMMAND 
OR SECTOR NUMBER prompt. Recall sector 720 
just to check what was written. 

Experiment #6: 
Trace File with "T" Command. 

Now that you've traced a file the hard way (if you 
didn't do Experiment #3, then shame on you), we'll 
do it using the T command. Call up the directory and 
pick a file (any file). Note the file number in the FIL# 
column. Hit T and RETURN. Enter the selected file 
number (hex or decimal) and hit RETURN. The 
computer should be busily grinding away, spewing 
out hexidecimal numbers along with the filename 
and start sector. When done, the word END should 
appear. This function shows you exactly which 
sectors on the disk the file you selected occupies. 

Trace will scream if it encounters any file number 
mismatch errors or short file errors. A short file 
error means that the length of the file in the direc- 
tory does not match the number of sectors traced. If 
this happens for every file you trace, then a possible 
typing error exists in the ML Loader portion of Disk 
Tool. 

Experiment #7: 
Set Drive Number with "S" Command. 

This straightfotward command was a heavily re- 
quested addition to Disk Tool. At the COMMAND 
OR SECTOR NUMBER prompt, type "S" and hit 
RETURN. The current working drive number will 
appear as well as a prompt for the new drive number. 
Drive numbers 1-4 will be accepted and processed; 
anything else will produce a RAZZ and an error 
message. If you change to a drive that does not exist, 
trying to execute a command will again cause the 
infamous RAZZ/error message combination. 

Experiment #8: 
Print Screen with "P" Command. 

Another straightforward command. If you don't 
have a printer, you may skip to the next experiment. 
If you do have a printer, then pick a screen which you 
would like a hard copy of and answer the 
COMMAND OR SECTOR NUMBER prompt 
with a "P" and RETURN. The message PRINTING 
SCREEN will appear and the screen will be dumped. 
If you fail to turn on your printer or interface, you 
will obtain an error message. 

You cannot print the HELP screen as the dump 
routine is only set up to dump Graphics 0. If you try 
to dump the HELP screen, you will get an IM- 
PROPER SCREEN CONDITION error message. 
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Experiment #9: 
Modify links with "M" Command. 

The modify links command is very powerful and 
one should exercise EXTREME CAUTION in its 
use. Improper use could cause you to destroy the 
integrity of a file or files and is guaranteed to make 
you exclaim that famous all-American expression 
"Awww Jeepers!" if used incorrectly. Since you 
have your experiment disk loaded, it won't matter if 
we mess up a file and then fix it using the Tool. 

Find a nice, long file on your experiment disk by 
scanning the directory. Aha!, there's one. OK, go to 
the starting sector of the file (indicated under the 
START column). Manually trace the file for about 4 
or 5 sectors and stop. REMEMBER this sector 
number. Answer the COMMAND OR SECTOR 
NUMBER prompt with M and RETURN. When 
the next prompt appears, type in the sector number 
which you remembered. The sector will be read in 
and the file number and next sector will be displayed. 
A prompt asking you for the new file number will 
appear. Type in a number other than what is dis- 
played but REMEMBER the old file number. 
Another prompt will appear asking you for the new 
next sector pointer. Type in a number which is 1 
more than the number being displayed but REMEM- 
BER the old number. Boy, we really messed up this 
file, huh? 

A message indicating the new links and a prompt 
to write the sector to the disk if correct will appear. 
We will now destroy your disk! No, only kidding. 
Hit W and RETURN. The screen will turn RED and 
the verify prompts will appear. Answer Y and write 
out the sector. Now, if you still remember the file 
number, hit T and RETURN. Enter the file number 
at the prompt and watch Trace in action. You should 
get an error message which indicates a FILE MIS- 
MATCH ERROR AT SECTOR $XXX where X is 
the sector number of the sector which you clob- 
bered. If you didn't, then you probably typed in the 
wrong file number. OK. Let's fix the error. 
Experiment #9A: 
Fix error from last experiment. 

Hit M and RETURN and recall the sector you 
clobbered. Change the file number back to what it 
was. Do NOT fix the next sector number yet. Type in 
the same number when prompted for the new sector 
pointer. After all the messages come up, write this 
sector back out again. Trace the same file. Every- 
thing will seem to be fine until the trace realizes that 
there are some sectors ( 1 sector in our case) missing. 
Trace will tell you how many sectors there should be 
as well as how many it found. The number of 
"should be" sectors minus the number of "found" 
sectors should equal the number of missing sectors. 
Fix the error by recalling that same messed-up sector 
and replacing the next sector pointer with the origi- 
nal value. Write it back out and re-trace. 



Experiment #10: 
Recover a deleted file with "R" Command. 

Recovering a deleted file is no simple task using 
manual methods. This was the most requested func- 
tion to be added to Disk Tool, so here are the steps. 

Find a deleted file entry by scanning the directory. 
Answer the COMMAND OR SECTOR NUMBER 
prompt with R and RETURN. Answer the next 
prompt with the file number (hex or decimal) you 
want to recover and hit RETURN. Disk Tool will 
now be busy recovering the file. It will keep you in- 
formed with messages as it proceeds. Soon you will 
see the FILENAME.EXT RECOVERED message. 
Magic, huh? Now, before you go scrambling for 
those diskettes with deleted files, I must say that 
there are certain file conditions which must exist or 
RECOVER will not work — as a matter of fact, 
NOTHING will work! Let me explain. 

Recover file restrictions. 

In order for a file to be recovered, it cannot have 
any sectors which have been written on by other 
saves. When a file is deleted, DOS sets the file 
deleted flag in the file status byte of the directory 
sector where the name resides. It then traces that file 
to obtain the sector numbers which that file occu- 
pied. DOS sets the bits in the VTOC bit map, thus 
marking the sectors occupied by the file being 
deleted as now being available. On any subsequent 
saves to the disk, DOS first searches for an empty file 
entry in the directory sectors and places the new 
name and file status in that slot. DOS then examines 
the VTOC bit map searching for sectors which can 
be allocated to the new file being saved. If the sectors 
that it finds available are the same sectors belonging 
to a previously deleted file, DOS doesn't care and the 
data belonging to the new file will overlay the deleted 
filed data. Once this is done, there is no way that the 
deleted file can be recovered. 

Now that the explanation is out of the way (did it 
make any sense?), let me just say that the recover 
function of Disk Tool makes extensive checks for file 
integrity, proper link structure and available sectors. 
If anything in the file being recovered is goofy, the 
message FILENAME.EXT CANNOT BE RE- 
COVERED, along with the appropriate reason will 
be displayed. The recover function will work with 
both DOS 1 and DOS 2 files, so that some of those 
oldies but goodies can possibly be rescued from obli- 
vion. 

The listings. 

Listing 1 — contains the data statements 
needed to create the AUTORUN.SYS file for 
Disk Tool. 

Listing 2 — is the assembly language source 
code listing for the AUTORUN.SYS file. This 
does NOT need to be typed in for Disk Tool to 
work. The AUTORUN.SYS creator (Listing 
1) will create the appropriate file. Listing 2 is 
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there for reference only. This should give you a 
pretty good idea of how to reserve some low- 
end memory, and also how to disable the break 
key prior to BASIC gaining control of the 
system. 

Listing 3 — is the ML loader program for 
Disk Tool. This program loads in all of the 
machine language instructions needed by the 
Disk Tool BASIC program. 

Listing 4 — (the huge one!) is the assembly 
language source code for Disk Tool utility. In it, 
you will find how to put a character on the 
screen, how to convert binary numbers to hex 
and hex to binary, how to display messages on 
the screen, how to go crazy trying to read an 
assembly listing and other common routines. I 
must say that this code is not the most efficient. 
Things can be done to improve it, so feel free. I 
will be glad to answer any questions or 
comments about it. My address is at the top of 
the listing (please send a SASE if you write). 

Listing 5 — is the Disk Tool BASIC code. I 
have completely overhauled the code and 
commented it like a maniac. The documenta- 
tion following Listing 5 gives all the addresses, 
label names and a complete cross-reference to 
the BASIC code. There is also a memory map 
which is valid only after Disk Tool has been 
loaded. 

Hints on using Disk Tool. 

In these modern times, with DOS 2 being avail- 
able and all that, it is very rare to come up with link 
errors and crashed files. Some errors occur, how- 
ever, when you try to copy DOS 1 files using DOS 2, 
or you may e'en run across an old program by some 
obscure out-of-business company that is loaded with 
crashed sectors (probably why they are out of busi- 
ness). Whatever the reason, if you have run into 
Error 164 here is one procedure to follow. 

1. Isolate the file causing the problem. It this 
isn't obvious, call up the directory and trace each file 
(using the T function) until the culprit is caught. 
Dump the trace to the printer. 

2. Remember the file number. Go to the sector 
previous to the one in error. This is where some 
detective skills will pay off. Examine the sectors 
from your current location to current sector +10, 
noting which file they belong to. You will probably 
find your missing sector within this range. I have not 
failed yet. This usually works on diskettes that have 
not had too much disk activity; i.e., a lot of file dele- 
tions and new file saves. If you run into a toughy, 
don't give up! You WILL find your missing sector. 

3. Once found, note the sector number and the 
next sector number. Manually trace it to verify the 
integrity of the file. 

4. Call up the original sector which had the incor- 
rect pointer using the M command. Change the 



pointer to the missing sector and write out the sector 
using the W command. 

This sounds like an involved process, and in some 
extreme cases it may be, but it sure beats retyping the 
original file. 

Other uses. 

CHANGING HEADER BYTES ON ML OB- 
JECT FILES: You have a relocatable ML file which 
you assembled on page 6. You now want to move it 
someplace else. The old procedure would be to load 
in the assembler, load in the source file, change the 
origin of the file, re-assemble, save the object code. 
Bah-Humbug to that. With Disk Tool simply call up 
the directory and find the start of the object file. Call 
up that sector and change the header information as 
per Figure 4. Re-write the sector and your file will 
now be loaded at the new address. 

The uses for Disk Tool are left to your imagina- 
tion. It's saved me a lot of time by allowing me direct 
access to the disk sectors and the information on 
them. I've patched ML programs directly, added 
code and allocated new sectors for that code, 
changed file names that refused to be changed by 
DOS and recovered many valuable files that were 
crashed. Let your imagination run wild. □ 



Listing 1. 



28 
25 
38 
35 
48 
45 
50 



10 GRAPHIC S 2*16 

is ? ue;" 

tt6j" 
tt6;" 
tt6;" 
tt6;" 
»6;" 
tt6;" 
tt6;" 



ANALOG 480/800 H" 
DSKT00L.RV3 5" 
autorun.sgs u" 

" 
5" 

hit any key to":? tt6;" ere 
ate AUTORHN-SYS":' tt6;" file" 
60 OPEN ttl,4,0,"K:" 
65 GET ttl, A 
78 CLOSE ttl 

75 ? we-- aasBGnraoE" 

80 OPEN ttl,8,8,• , D:AUT0RUN.SYS ,, 

85 PUT ttl, 255: REM HEADER SFF 

90 PUT ttl, 255: REM HEADER SFF 

100 PUT ttl,0:REM LOAD START LSB $00 

105 PUT ttl, 6: REM LOAD START MSB £06 

110 PUT ttl, 74: REM LOAD END LSB S4A 

115 PUT ttl,6:REM LOAD END MSB $06 

120 READ A: IF A=999 THEN GOTO 140 

123 REM ** NOW PUT OUT REST OF PROG ** 

125 PUT ttl,0 

130 GOTO 120 

140 CLOSE ttl 

160 POSITION 3,10:^ tt6;" FILE WRITTEN" 

170 GOTO 170 

1000 DATA 24,173,231,2,105,184,141,231 

,2,173 

1002 DATA 232,2,105,11,141,232,2,169,0 

,133 

1084 DATA 8,32,27,6,76,0,160,120,173,2 



2, 141, 60, 6, 173, 23, 2, 141, 6 i, 5 
169,52,141,22,2,169,6,141,23 



1006 DATA 

1808 DATA 

,2 

1010 DATA 88,96,72,173,14,210,16,4,104 

,76 

1012 DATA 59,6,169,127,141,14,210,165, 

16,141 
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1814 DATA 14,210,104,64,0,226,2 

1016 DATA 227,2,0,6,224,2,225,2,8,6 

1818 DATA 999 

1828 REN MHHHHHHHHBHHHHBHt* 

1822 REM * END AUTORUN . SYS* 

1824 REM * LOADER PROG * 

1826 REM «BBHHHHHBH«HHHBBH< 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 442,342,782,4,723,347,422,340, 

971 , 488 , 388 , 504 , 332 ,40,762,6887 

98 DATA 749,325,357,409,116,197,906,59 

4,698,647,891,725,587,482,235,7918 

1806 DATA 54,497,359,628,586,782,885,7 

89,726,285,801,6312 



Listing 2. 



sees 
0010 

0013 
0020 
0025 
0030 
003S 
0040 
0045 
0030 
0033 
0060 
0063 
0070 
0073 
00S0 
00S3 
0090 
0095 
0100 
0103 
01 10 

0113 
0120 
0123 
0130 
0133 
0140 
0143 
0130 
0135 
0160 
0163 
0170 
0173 
0160 
0181 
0190 
0193 
0200 
0203 
0210 
0213 
0220 
0223 
0230 
0233 
0240 
0243 
0230 
0233 
0260 
0263 
0270 



AUTORUN. SYS SOURCE CODE • 

FOR D8KT00L UTILITY RV3 » 

BY: TONY MESSINA « 

48 DUDLEY AVE » 

NEWPORT, RI 02840 » 

• 

THIS FILE RESERVES 3000 » 

BYTE8 OF RAM BY MOVING THE • 

MEHLO POINTER UP BEFORE • 

THE BASIC OR ASSEMBLER CART* 

GETS CONTROL OF THE SYSTEM.* 

» 
THIS CODE ALSO DISABLES THE* 
BREAK KEY TO PREVENT ANY » 
POSSIBLE USER ERR0R8 FROM » 
HAPPENIN8. • 

PROGRAM BASED ON IDEAS • 
PRESENTED IN DE RE ATARI • 
PSS 8-11 l< B-13 • 



1* EQUATES 


* 




MEMLOL 


DE 


»02E7 


MEMLOH 


DE 


• 02E8 


WARMST 


DE 


• 0008 


CARVEC 


DE 


*A000 


SAVBYT 


DT 


3000 


PQKMSK 


DF. 


•0010 


IRQEN 


DE 


»D20E 


IROST 


DE 


IRQEN 


VMIRQ 

1 


DE 


• 0216 


1 » CONTROL 


* 






8A 


*0600 




L3 




1 


03 




1* PROGRAM 


» 





03S0 


1 












0385 


( ••• NOW PUT OUR IRQ HANDLER 


ADDRESS »** 


0390 


■•*« INTO 


THE SYSTEM VECTOR 


LOCATION *•« 


0393 


1 












0400 






LDA 


•L.OURIRO 


1 


GET ADDR LO 


0403 






8TA 


VMIRQ 


1 


STORE AS SYS VEC 


0410 






LDA 


•H.OURIRQ 


1 


GET ADDR HI 


0413 






STA 


VMIRQ-M 


1 


STORE IT TOO 


0420 






CLI 




1 


NOW ALLOW 1NTERUPTS 


0425 






RTS 




1 


AND RETURN 


0430 
0433 
0440 


1 












1 * 


THIS IS 


THE 


ACTUAL IRQ 


* 




0443 


( • 


SERVICE 


ROUTINE. ALL WE 


■ 




0430 


I • 


DO IS CHECK 


FOR A BREAK 


* 




0433 


1 « 


KEY. IF 


BREAK IS HIT. WE 


* 




0460 


; * 


CAUSE THE SYSTEM TO JUST 


* 




0463 
0470 
0473 


t « 


IGNORE 


IT AND THEN RETURN* 
















0480 


OURIR 


PHA 




1 


SAVE A 


0483 






LDA 


1RQST 


| 


WAS THIS A BREAK?? 


0490 






BPL 


T1SBRK 


; 


YES IT ISM 


0495 






PLA 




I 


NO SO PULL A 


0500 


8Y8IRQ 


J MP 


SYSIRQ 


< 


AND CALL SYSTEM ROUTINE 


0303 


1 












0310 


1 » 


•* BREAK 


KEY 


HIT SO SQUASH * 




0513 


|»*« THIS 


MAMA 


& STOP DOOM! 


• ** 




0320 


1 












0323 


T 1SBRK 


LDA 


»»7F 


1 


WIPE BRK en 


0330 






STA 


IRQBT 


1 


PUT IN STATUS 


0333 






LDA 


•POKMSK 


> 


BET POKEY MASK 


0340 






3TA 


IRQEN 


1 


AND STUFF 


0343 






PLA 




1 


PULL A 


0330 






RTI 




1 


AND RETURN FROM INTERUPT 


0335 
0360 
0365 
0370 
0373 


1 












t * 


END PROB » 












.EN 




1 


THE END 



(••»• RESERVE 3000 BYTES •«»• 

I 

BTRES CLC 

LDA MEMLOL 

ADC ttL, SAVBYT 

STA MEMLOL 

LDA MEMLOH 



LO BYTE MEMLO 

HI BYTE MEMLO 

WAR8TART FLAG 

CART START VECTOR 

• OF BYTES TO RESERVE 

POKEY IRQ MASK 

IRO ENABLE BITS 

IRQ STATUS 

SYSTEM IRQ VECTOR 



i origin tehee 

I GIMME LISTING 
I OBJ CODE TO MEM 



) CLEAR FOR ADD 

I GET CURRENT MEMLO LO BY 

I ADD 3000 LO 

[ STORE 

1 GET CURRENT MEMLO HI 



Listing 3. 



10 GRAPHICS 2+16:P0KE 712,14:P0KE 709, 
102: POKE 70 8,202 

is ? U6;- jgaaaaaag' 

20 ? it6;" 
25 ? tt6;" 
30 ? tt6;" 
35 ? «6;" 
40 ? tt6;" 
45 ? 86;" 
58 ? tt6; 



iWflLOG 488/881 

presents 

u iiM tg. uj 

b esm3 am 



by 

TONY MESSINA" 











TAOC 02 






0273 






ADC 


•H.3AVBY1 




1 ADD 3000 HI 


0280 






STA 


MEMLOH 




1 STORE IT 


0283 






LDA 


«00 




I UARMSTART RESET 


0290 






STA 


*WARMST 




1 STORE 


0293 






JSR 


SWAPEM 




1 DO BREAK KEY STUFF 


0300 






JMP 


CARVEC 




1 JUMP THROUGH CART 


0303 
0310 
0313 


1 












f ■ 


SWAP 


IRQ VEC ROUTINE 


• 




0320 


! « 


TO POINT TO 


OUR OWN 


* 




0323 


1 « 


ROUTINE. WE 


WILL IG- 


# 




0330 
0333 
0340 


1 « 


NORE 


THE BREAK KEY. 


» 




1 












0345 


1 *»* 1ST 


PUT SYS 


OUR 


STUFF «•• 


0330 


1 












0335 


SWAPEM 


3EI 






) STOP IRQ'S FOR NOW 


0360 






LDA 


VMIRQ 




1 GET SYSTEM IRQ LO ADDR 


0363 






STA 


3YSIRQ-M 




1 MODIFY JMP LO 


0370 






LDA 


VMIRQ+l 




1 GET SYS IRQ HI ADDR 


0373 






STA 


SYSIRQ* 2 




1 MODIFY JMP HI 



55 ? ne;" HEEHHJPB3M ihUL-Ufcll 1 - ■ 

60 ARE A=7428 : REM **ML SAUlTAREA ** 

65 POKE 711, 14: READ X : IF K=999 THEN PO 

KE 755, 2: GOTO 75 

70 POKE 711,8:P0KE AREA,X : AREA=AREA+i : 

GOTO 65 

75 ? tt6;" loading dsfctOOl .utl":RUN "D: 

DSKT00L.PT2" 

88 DATA 32,83,228,48,51,173,130,29,208 

85 DATA 32,133,29,32,38,30,173,22,30,3 

2 

98 DATA 15,30,32,175,29,162,0,160,0,18 

95 DATA 253,3,32,243,29,32,222,29,32,2 

188 DATA 38,32,178,29,32,31,30,200,192 
,8 

105 DATA 240,17,232,76,25,29,140,126,2 
9,32 

110 DATA 16,32,160,0,148,22,30,184,96, 

142 

115 DATA 23,30,138,56,233,7,178,238,23 

120 DATA 189,253,3,32,195,29,142,129,2 

125 DATA 57,35,174,129,29,232,236,23,3 

0,208 

130 DATA 235,169,155,32,57,35,174,23,3 

8,224 

135 DATA 128,176,202,32,38,30,32,6,30, 

140 DATA 175,29,166,8,174,23,38,76,25, 

145 DATA 0,0,0,0,0,0,0,162,8,189 

150 DATA 154,29,240,13,142,127,29,32,5 

7,35 

155 DATA 174,127,29,232,56,176,238,96, 

125,66 
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168 DATA 

127 

165 DATA 

2 

178 DATA 

15 

175 DATA 

81 

188 DATA 

128,144 

185 DATA 

,4,281 

198 DATA 

173 

195 DATA 

,57 

288 DATA 

285 DATA 

4,32 

218 DATA 

8,24 

215 DATA 

222 

228 DATA 

29 

225 DATA 

69,62 

238 DATA 

84 

235 DATA 

,177,285 

248 DATA 

9,29 

245 DATA 

8,5,288 

258 DATA 

53,3 

255 DATA 

6,29 

268 DATA 

7 

265 DATA 

41,188 

278 DATA 

13 

275 DATA 

32 

288 DATA 

9,253 

285 DATA 

62,8 

298 DATA 

4,11,144 

295 DATA 

288,177 

388 DATA 

1,234,31 

385 DATA 

7,285,141 

318 DATA 

141 

315 DATA 

,141 

328 DATA 

,169 

325 DATA 

,248 

338 DATA 

,169 

335 DATA 

,3 

348 DATA 

2 

345 DATA 

,38 

358 DATA 

44 

355 DATA 

38 

368 DATA 

32 

365 DATA 

78,29 

378 DATA 

,173 

375 DATA 

,43 



89,84,69,35,127,127,72,69,88, 

127,65,84,65,83,67,73,155,8,3 

178,29,169,32,32,57,35,96,41, 

281,18,48,2,185,6,185,48,96,2 

32,144,28,281,125,144, 18,281, 

12,281,155,144,18,281,168,144 

253,144,2,169,46,96,32,24,38, 

242,29,32,57,35,173,241,29,32 

35,32,31,30,96,8,8,72,74,74 
74,74,32,184,29,141,242,29,18 

184,29,141,241,29,96,173,22,3 

185,8,141,22,38,32,243,29,32, 

29,96,8,8,142,127,29,148,128, 

96,174,127,29,172,128,29,96,1 

32,57,35,169,36,32,57,35,96,1 

184,133,286,184,133,285,168,2 

32,111,38,178,24,185,8,141,12 

288,288,288,177,285,281,32,28 

177,285,288,3,32,111,38,157,2 

232,236,129,29,144,231,72,76, 

8,56,233,48,281,18,144,2,233, 

96,72,288,177,285,32,181,38,1 

38,184,32,181,38,18,18,18,18, 

188,38,96,76,52,29,32,243,29, 

222,29,96,32,83,228,48,241,16 

133,285,169,3,133,286,168,5,1 

177,285,157,221,31,208,232,22 

245,160,0,177,285,141,236,31, 

285,141,235,31,200,177,205,14 

200,177,205,141,233,31,200,17 

232,31,44,236,31,16,8,169,68, 

237,31,76,254,30,88,37,169,85 

237,31,169,32,44,236,31,248,5 

42,141,239,31,169,2,44,236,31 

8,169,58,141,238,31,76,254,38 

49,141,238,31,32,43,38,173,11 

32,47,35,173,18,3,32,136,38,3 

178,29,162,8,189,221,31,32,24 

32,57,35,32,31,30,232,224,8,1 

239,32,24,30,32,178,29,32,31, 

189,221,31,32,24,30,32,57,35, 

31,38,232,224,11,144,239,32,1 

32,43,30,173,232,31,32,136,30 

233,31,32,136,38,32,178,29,32 



388 DATA 

35,31 

385 DATA 

173 

398 DATA 

2,2 

395 DATA 

32 

400 DATA 

6,236 

405 DATA 

05,242 

410 DATA 

33,205 

415 DATA 

5,32 

420 DATA 

7,35 

425 DATA 

4 

430 DATA 

73 

435 DATA 

43,38 

448 DATA 

288,250 

445 DATA 

458 DATA 

455 DATA 

460 DATA 

465 DATA 

13 

470 DATA 

,122 

475 DATA 

4 

480 DATA 

4,104 

485 DATA 

1,119 

498 DATA 

4,133 

495 DATA 

43,31,32 

508 DATA 

160 

505 DATA 

,208,247 

510 DATA 

141,10 

515 DATA 

177,205 

520 DATA 

,3,76 

525 DATA 

,31,44 

530 DATA 

6,29 

535 DATA 

,lil 

540 DATA 

0,76 

545 DATA 

3,32 

550 DATA 

33,173 

555 DATA 

560 DATA 

32,57 

565 DATA 

,16 

578 DATA 

34 

575 DATA 

,243 

580 DATA 

,240 

585 DATA 

34 

598 DATA 

9,34 

595 DATA 

,204 

600 DATA 

,43 

605 DATA 



30,173,234,31,32,136,30,173,2 
32,136,30,32,175,29,32,43,30, 
243,31,32,136,30,32,175,29,16 
189,237,31,32,24,30,32,57,35, 
31,30,169,32,157,237,31,202,1 
238,243,31,238,242,31,169,8,2 
31,248,22,165,205,24,105,16,1 
144,2,230,206,169,155,32,57,3 
204,31,76,156,30,169,155,32,5 
173,10,3,24,165,1,141,10,3,14 
3,238,11,3,162,8,142,242,31,1 
241,31,208,17,238,241,31,76,1 
162,11,169,32,157,221,31,202, 
96,206,241,31,76,63,29,0,8,8 

o,e,e,e,0,e,o,o,o,e 
0,0,32,32,32,32,32,6,9,9 

32,83,228,16,3,76,52,29,32,16 
32,76,63,29,173,132,29,42,42, 

131,29,141,122,4,76,63,29,173 

4,72,41,3,141,131,29,104,74,7 

141,132,29,96,173,254,34,240, 

76,189,32,184,184,141,11,3,14 

35,104,141,10,3,141,118,35,18 

206,104,133,205,104,184,141,2 

83,228,16,3,76,221,34,162,11, 

15,177,205,157,220,31,136,202 

177,205,141,11,3,136,177,205, 

3,136,177,205,141,235,31,136, 

141,234,31,136,173,117,35,248 

252,35,177,205,240,20,141,236 

236,31,16,28,32,212,33,142,12 

32,213,34,76,64,29,162,34,160 

32,159,33,173,243,31,32,136,3 

42,33,162,33,168,232,32,159,3 

212,33,162,33,168,239,32,159, 

11,3,32,47,35,173,18,3,32,136 
30,160,16,140,249,34,169,155, 

35,162,7,142,248,34,32,83,228 

3,76,221,34,32,16,32,238,255, 

208,3,238,8,35,173,132,29,285 

31,208,35,173,123,4,13,131,29 

81,32,199,33,32,1,35,206,248, 

16,210,169,1,141,46,35,206,24 

16,190,141,254,34,76,64,29,32 

31,162,34,160,20,32,159,33,32 

30,173,11,3,32,47,35,173,10,3 
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618 DATA 

3,33 

615 DATA 

9,0 

620 DATA 

5,76 

625 DATA 

8,31 

638 DATA 

,255 

635 DATA 

,159 

648 DATA 

47 

645 DATA 

73,235 

658 DATA 

6,36 

655 DATA 

6,35 

668 DATA 

8,162 

665 DATA 

1,255 

678 DATA 

29 

675 DATA 

,34,148 

688 DATA 

73,258 

685 DATA 

137,29 

698 DATA 

131,29 

695 DATA 

6 

788 DATA 

57 

785 DATA 

9,96 

718 DATA 

715 DATA 

728 DATA 

725 DATA 

738 DATA 

,32 

735 DATA 

748 DATA 

745 DATA 

758 DATA 

755 DATA 

768 DATA 

53 

765 DATA 

778 DATA 

775 DATA 

9 

788 DATA 

785 DATA 

798 DATA 

795 DATA 

888 DATA 

885 DATA 

818 DATA 

815 DATA 

828 DATA 

825 DATA 

168 

830 DATA 

32 

835 DATA 

18 

840 DATA 

76 

845 DATA 

858 DATA 

855 DATA 

5 

868 DATA 

131 

865 DATA 

38 

878 DATA 

9 

875 DATA 

,32 



32 , 136 , 38 , 162 , 34 , 168 , 54 , 32 , 15 

169,1,141,126,29,141,46,35,16 

141,255,34,141,254,34,141,0,3 

64,29,173,234,31,77,255,34,20 

173,235,31,77,0,35,288,23,141 

34,141,8,35,162,34,168,134,32 

33,169,155,32,57,35,169,1,76, 

33,162,34,168,139,32,159,33,1 

31,32,136,38,173,234,31,32,13 

162,34,168,165,32,159,33,173, 

32,136,30,173,255,34,32,136,3 

34,168,191,32,159,33,169,0,14 

34,141,8,35,76,42,33,173,136, 

141,258,34,173,137,29,141,251 

136,29,142,137,29,32,133,29,1 

34,141,136,29,173,251,34,141, 

174,252,34,172,253,34,96,173, 

141,11,3,173,123,4,141,10,3,9 

162,0,189,221,31,32,24,38,32, 

35,32,31,38,232,224,11,144,23 

78,73,76,69,58,32,8,32,32,32 

32,32,83,84,65,82,34,32,83,69 

67,84,79,82,58,36,0,32,73,83 

32,68,69,76,69,84,69,68,33,33 

253,253,155,0,155,70,73,76,69 

78,85,77,66,69,82,32,77,73,83 
77,65,84,67,72,32,65,84,32,83 
69,67,84,79,82,27,31,8,155,67 
72,69,67,75,32,80,82,69,86,73 
79,85,83,32,83,69,67,84,79,82 
32,76,73,78,75,83,33,33,253,2 

8,67,65,78,78,79,84,32,82,69 

65,68,32,83,69,67,84,79,82,58 

27,31,36,253,8,155,78,79,32,6 

78,84,82,89,32,78,79,82,32,78 
73,76,69,27,31,36,253,0,32,69 
78,68,8,155,79,82,73,71,73,78 
65,76,32,83,69,67,84,79,82,32 
67,79,85,78,84,27,31,36,0,155 
65,67,84,85,65,76,32,83,69,67 
84,79,82,83,32,76,79,65,68,69 
68,27,31,36,0,155,83,72,79,82 
84,32,70,73,76,69,32,69,82,82 
79,82,33,33,253,155,0,162,34, 

3,32,159,33,96,162,34,160,87, 

159,33,173,11,3,32,47,35,173, 

3,32,136,30,169,155,32,57,35, 

42,33,0,0,0,0,0,0,0,0 

0,32,24,30,173,46,35,240,6,32 

43,30,76,28,35,169,27,32,57,3 

169,31,32,57,35,32,43,38,173, 

29,32,47,35,173,123,4,32,136, 

169,0,141,46,35,96,1,32,243,2 

32,231,29,96,69,58,155,162,64 



888 DATA 86,228,96,162,64,169,12,157,6 

6,3 

885 DATA 32,86,228,162,64,169,3,157,66 

,3 

898 DATA 169,54,157,68,3,169,35,157,69 

895 DATA 169,8,157,74,3,32,86,228,162, 

64 

988 DATA 169,11,157,66,3,169,0,157,72, 

3 

905 DATA 157,73,3,104,96,0,0,0,0,0 

918 DATA 0,0,0,0,0,0,0,0,0,0 

915 DATA 0,8,0,0,0,0,0,8,0,0 

920 DATA 0,8,0,0,0,0,0,8,8,0 

925 DATA 0,0,0,0,0,8,0,0,0,0 

930 DATA 0,8,0,0,0,0,8,8,8,8 

935 DATA 8,8,8,8,8,8,0,0,0,0 

946 DATA 8,8,8,8,8,8,0,0,0,0 

945 DATA 0,0,0,0,0,8,0,0,0,0 

950 DATA 0,8,0,0,0,0,0,0,8,8 

955 DATA 8,8,0,0,0,0,0,0,0,0 

960 DATA 0,0,0,0,0,0,0,8,0,0 

965 DATA 0,0,0,0,0,8,8,0,0,8 

978 DATA 0,0,8,0,0,0,0,0,0,0 

975 DATA 8,0,140,253,34,173,11,3,141,1 

988 DATA 35,173,18,3,141,115,35,162,35 

, 168 

985 DATA 120,142,5,3,140,4,3,162,104,1 

60 

998 DATA 1,148,11,3,142,18,3,32,83,228 

995 DATA 16,13,162,38,160,251,32,159,3 

3,32 

I860 DATA 204,31,76,221,34,32,218,37,1 

72,253 

1885 DATA 34,177,285,288,3,76,144,32,1 

41,236 

1810 DATA 31,44,236,31,16,73,162,38,16 

6,34 

1815 DATA 32,159,33,173,116,35,141,11, 

1820 DATA 115,35,141,10,3,32,83,228,16 

1825 DATA 32,212,33,32,284,31,162,39,1 

60,19 

1830 DATA 32,159,33,76,221,34,32,16,32 

,238 

1835 DATA 255,34,288,3,238,8,35,173,13 

2,29 

1040 DATA 205,243,31,208,27,173,123,4, 

13,131 

1845 DATA 29,248,84,32,199,33,76,89,36 

,32 

1850 DATA 212,33,162,38,168,68,32,159, 
33 76 

1055 DATA 42,33,162,34,160,28,32,159,3 

3,32 

1868 DATA 43,30,173,11,3,32,47,35,173, 

1065 DATA 3,32,136,30,169,155,32,57,35 

,162 

1070 DATA 33,160,232,32,159,33,32,212, 

33,162 

1075 DATA 38,168,88,32,159,33,32,284,3 

1,248 

1888 DATA 284,32,212,33,32,284,31,162, 

38,160 

1085 DATA 88,32,159,33,76,163,33,173,2 

34,31 

1890 DATA 77,255,34,288,232,173,235,31 

,77,8 

1095 DATA 35,288,224,141,255,34,141,8, 

35,162 

1188 DATA 38,168,114,32,159,33,173,118 

,35,141 

1185 DATA 10,3,173,119,35,141,11,3,32, 

83 

1110 DATA 228,16,13,162,39,160,38,32,1 

59,33 

1115 DATA 32,284,31,76,42,33,168,8,173 

,126 

1128 DATA 35,281,2,288,4,169,66,288,2, 

169 

1125 DATA 64,145,285,169,87,141,2,3,32 

,83 

1138 DATA 228,16,35,32,218,37,32,204,3 

1,162 
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1135 


DATA 


,32 




1140 


DATA 


,39 




1145 


DATA 


,218 




1150 


DATA 


162,38 


1155 


DATA 


,141, 


10 


1180 


DATA 


228 




1165 


DATA 


3,32 




1170 


DATA 


2,16 




1175 


DATA 


,32 




1180 


DATA 


120,142 


1185 


DATA 


2 




1198 


DATA 


1195 


DATA 


27,32 


1200 


DATA 


,218 




1205 


DATA 


32,159 


1210 


DATA 


4,29 




1215 


DATA 


3 




1220 


DATA 


3 




1225 


DATA 


,246 




1230 


DATA 


9,0,56 


1235 


DATA 


05,18 


1240 


DATA 


,206, 


,123 


1245 


DATA 


206,124 


1250 


DATA 


45 




1255 


DATA 


2 




1260 


DATA 


3 




1265 


DATA 


2 




1270 


DATA 


9 




1275 


DATA 


65 




1280 


DATA 


9 




1285 


DATA 


53 




1290 


DATA 


4 




1295 


DATA 


,50 




1300 


DATA 


2 




1305 


DATA 







1310 


DATA 


2 




1315 


DATA 


9 




1320 


DATA 


5 




1325 


DATA 


4 




1330 


DATA 


3 




1335 


DATA 


9 




1340 


DATA 


9 




1345 


DATA 


82 




1350 


DATA 


7 





39,160,62,32,159,33,173,11,3 

47,35,173,10,3,32,136,30,162 

160,86,32,159,33,76,42,33,32 

37,162,38,160,152,32,159,33, 

160,174,32,159,33,173,115,35 

3,173,116,35,141,11,3,32,83, 

16,13,162,39,160,19,32,159,3 

204,31,76,221,34,32,234,37,3 

32,173,123,4,13,131,29,240,6 

199,33,76,115,37,162,35,160, 

5,3,140,4,3,162,104,160,1,14 

10,3,140,11,3,169,87,141,2,3 
32 , 83 , 228 ,16, 13, 162, 38, 160, 2 

159,33,32,218,37,76,42,33,32 

37,32,212,33,162,38,160,204, 

33,32,204,31,142,117,35,76,6 

162,3,160,253,142,5,3,140,4, 

162,82,142,2,3,96,169,0,160, 

78,11,3,118,18,3,106,136,208 

160,5,106,136,208,252,168,16 

186,136,16,252,72,173,10,3,1 

168,104,89,128,35,153,120,35 

35,173,123,35,201,255,208,3, 

35,96,127,80,65,83,83,49,32, 

32,67,72,69,67,75,73,78,71,3 

78,73,76,69,32,67,79,78,68,7 

84,73,79,78,155,0,32,73,83,3 

78,79,84,32,68,69,76,69,84,6 

68,33,33,155,253,8,44,32,67, 

78,78,79,84,32,66,69,32,82,6 

67,79,86,69,82,69,68,33,33,2 

155,8,70,73,76,69,32,73,78,8 

65,67,84,155,127,80,65,83,83 

32,45,32,82,69,67,79,86,69,8 

73,78,71,32,70,73,76,69,155, 

68,73,82,69,67,84,79,82,89,3 

69,78,84,82,89,32,68,79,78,6 

155,8,82,69,65,76,76,79,67,6 

84,73,78,71,32,68,69,76,69,8 

69,68,32,83,69,67,84,79,82,8 

155,0,32,72,65,83,32,66,69,6 

78,32,82,69,67,79,86,69,82,6 

68,33,253,155,0,69,82,82,79, 

32,73,78,32,86,84,79,67,32,8 



1355 


DATA 


69 




1360 


DATA 


4 




1365 


DATA 


3 




1370 


DATA 


69 




1375 


DATA 


53 




1380 


DATA 


2 




1385 


DATA 


2 




1390 


DATA 


69 




1395 


DATA 


4 




1400 


DATA 


1 




1405 


DATA 



82,73,84,69,33,33,253,155,8, 
82,82,79,82,32,73,78,32,86,8 
79,67,32,82,69,65,68,32,33,3 
253,155,8,70,73,76,69,32,82, 
65 , 68 , 32 , 69 , 82 , 82 , 79 , 82 , 33 , 2 
155,0,68,73,82,69,67,84,79,8 
89 , 32 , 82 , 69 , 65 , 68 , 32 , 69 , 82 , 8 
79,82,33,253,155,0,68,73,82, 
67,84,79,82,89,32,87,82,73,8 
69,32,69,82,82,79,82,33,27,3 
253,155,0,0,0,999 



CHECKSUM DATA 

(See pgs. 7-10) 



10 DATA 601,859,577,173,880,415,850,35 

0,194,519,564,841,903,755,385,8866 

85 DATA 282,268,264,536,556,358,379,58 

8,885, 892 , 537 ,507,433, 580 , 758 ,7815 

160 DATA 489,349,537,548,888,644,367,4 

44,23,629,624,352,589,908,609,8008 

235 DATA 128,561,845,578,617,261,677,4 

32,564,898,576,144,882,99,938,8280 

310 DATA 357,618,605,607,626,532,321,3 

90,571,519,493,851,680,415,841,8346 

385 DATA 371,485,520,844,677,652,617,6 

09,278,533,853,894,224,256,637,8370 

460 DATA 169,591,579,294,844,885,823,1 

06,379,157,678,908,831,694,564,8502 

535 DATA 588,615,608,668,62,871,436,57 

3,621,597,599,602,695,379,113,8827 

610 DATA 592,419,577,640,578,619,573,7 

22,595,606,865,893,617,898,718,9912 

685 DATA 744,741,285,497,611,381,219,3 

45,283,469,285,248,246,263,298,5827 

760 DATA 677,264,299,389,251,231,264,2 

84,238,275,289,211,232,420,581,4897 

835 DATA 524,546,336,99,383,396,598,34 

1,466,488,643,632,647,271,936,7298 

918 DATA 254,259,257,262,268,265,263,2 

68,266,271,269,274,272,549,633,4622 

985 DATA 535,68,639,595,641,524,747,30 

4,755,539,537,580,410,799,518,8191 

I860 DATA 435,533,594,789,581,802,819, 

688,840,460,797,480,322,368,779,9259 

1135 DATA 332,380,577,631,844,307,546, 

511,335,835,214,15,816,574,639,7476 

1218 DATA 521,199,194,530,640,771,92,8 

38,478,327,339,303,356,485,339,6412 

1285 DATA 598,303,432,322,301,349,369, 

316,353,349,292,354,503.327,550,571© 

1360 DATA 339,311,471,584,326,346,518, 

373,383,82,3653 
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Listing 4. 



0006 ■»*•••••••»•»•»• ••••»*••»••••»* 

0008 !• thi3 file is the control • 
0010 >» file used to assemble all • 
0812 i* parts of the ml portion of » 
0*14 ■• the disk tool utility. it • 
0016 l« is executed by typin8 the • 

0018 l» ASM -D: DMPUNIV.CTL" » 
0020 1» COMMAND FROM THE MAE EDITOR* 

!>••••••>••••■•••*■»••••••••••• 

.CT 
. LS 
.FI "D: DMPUNIV. SRC" 



0022 
0024 
0023 
0024 



DIDMPUNIV.SRC 



0002 
0004 
0006 
0008 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 
0026 
0028 
0030 
0032 
0034 
0036 
003B 
0040 
0042 
0044 
0046 
004B 
00S0 
0032 
0034 
0036 
003B 
0060 
0062 
0064 
0066 
006S 
0070 
0072 
0074 
0076 
0078 
0080 
0082 
0084 
0086 
0088 
0090 
0092 
0094 
0096 
0098 
0100 
0102 
0104 

106 
0108 

01 10 
01 12 
01 14 
01 16 
01 IS 
0120 
0122 
0124 
0126 
0128 
0130 
0132 
0134 
0136 
013B 
0140 
0142 
0144 
0146 
0148 
0130 
0132 
0134 
■ 136 
0138 
0160 
0162 
0164 
0166 
0168 
0170 
0172 
0174 
0176 
0178 
180 
0182 
0184 
01SA 
0188 
0190 
0192 
0194 
196 
198 



» D3KT00L MLLI8T » 

• 8 AUQ 1981 * 

• REV6 13 JUL 1983« 

• TONY MESSINA » 

• 48 DUDLEY AVE • 

• NEWPORT, RI » 
» 02840 • 



DSKVEC 

CASBUF 

PERIOD 

CR 

BP 

CLS 

TAB 

NULL 

PABE0 

LOCKED 

DOSMSK 

DAUXl 

DAUX2 

ESC 

BELL 

RAR 



. DE »E433 

.DI 003FD 

.DI *2E 

.DI »9B 

.DI »20 

.DI «7D 

.DI «7F 

.DI (00 

.DI »00CD 

.DI »20 

.DI *02 

.DE »030A 

. DE «030B 

.DI »001B 

.DI »FD 

.DI »001F 



READ/HRITE DISK 

128 BYTE BUFFER 

ASCII PERIOD 

CARRI8E RETURN 

ASCII SPACE 

CLEAR SCREEN 

TAB 3PACE 

END OF TEXT DELIMETER 

PG MORK LOCATION 

FILE LOCKED MASK 

DOS 2 MASK 



I E8C/ESC SEQ 
I RIN8 BUZZER 
I RIGHT ARRON 



CONTROL • 

NOTE: • 
ORG DQS2- * 

*1CFC •••»»»»»»»•••••». 

ANY OTHER 0R8 MILL REQUIRE 
CHAN8ES TO THE BASIC PART 
OF THIS UTILITY. .BEWARE! !! ! 
RUN ONLY UNDER UNMODIFIED 
D032 (I.E. D0S2 THAT DOES 
NOT SAVE SPACE BY DROPPING 
N0N-EXI8TINB DRIVES!!! 



.PR "ORIGIN OF HEXDMP" > ASK ORB 

. IN ASTART I USER INPUT 

. BA ASTART I 

.OS I 

. MC *A900 | 

.PR "OR1BIN AT INPUT" 

.PR "OBJ STORE AT »A900 



ASSIGN ORB 

STORE OBJ CODE IN MEM 

BUT PUT AT »A900 



ME9AGE 



START JBR 
BMI 
LDA 
BNE 
JSR 
JSR 
LDA 
JSR 
JSR 

>••» SECTOR IS 

I 

LDX 
LDY 

DSPHEX LDA 
JSR 
JSR 
JSR 
JSR 
J8R 
I NY 
CPY 
BEO 
INX 
J MP 

I 

I »• #»••»•»••##• 

I « DSK ERRORS • 



DERR 
EXIT 



STY 
JSR 
LDY 
STY 
PLA 
RTS 



DSKVEC 

DERR 

WFLAG 

EXIT2 

MSG 

PREFIX 

LOADR 

AROUND 

SPACE2 

IN, HEADER UP, 

• 

• 

CA8BUF, X 
CONVERT 
DISPLY 
3AVXY 
SPACE1 
RE8XY 

• 8 
OMPASC 



ERRFLB 
WEIRD 
• 
LOADR 



1 



DO READ OR NRITE 
IF ERROR BRANCH 

I WAS IT A WRITE? 

I YES. .KEEP DISPLAY! 

I PUT UP HEADER 

I PUT UP >• 

I GET LOADR 

I PUT UP 00 

I 2 SPACES 
DUMP HEX »•• 

I BYTE COUNTER 

I COUNT 8 HEX BYTES 

I GET A BYTE 

I BREAK INTO NYBLES 

I AND DISPLAY 

I SAVE XliY REGS 

I NOW SP 1 

I RESTORE XS.Y REGS 

I INC COUNT 

I TIME TO DUMP ASCI 177 

I YES. .GO DO IT 

I NO. . INC BYTE COUNT 

1 NO. . NEXT?? 



INFORM BASIC OF ERROR 

BREAK UP WEIRO BYTE 

ZERO Y 

ZERO LOADR 

CLEAN UP STACK 

AND RETURN TO BA8IC 



i» ASCII DUMP • 



0200 
0202 
0204 
0206 
0208 
0710 
0212 
0214 
.0216 
0218 
027.0 
0222 
0224 
0226 
0228 
0230 
0232 
0234 
0236 
0238 
0240 
0242 
0244 
0246 
0248 
0230 
0232 
0234 
0236 
0238 
0260 
0262 
0264 
0266 
0268 
0270 
0272 
0274 
0276 
0278 
0280 
0282 
0284 
0286 
028B 
0290 
0292 
0294 
0296 
0298 
0300 
0302 
0304 
0306 
0308 
0310 

0312 
0316 
03IS 
0320 
0322 
0324 
0326 
0328 
03.30 
0332 
0334 
336 
033B 
0340 
0342 
0344 
0346 
0348 
0330 
0332 
0334 
0336 
0338 
0360 
0362 
0364 
0366 
0368 
0370 
0372 
0374 
0376 
0378 
0380 
0382 
0384 
0386 
0388 
0390 
0392 
0394 
0396 
0398 
0400 
0402 
0404 
0406 
0408 
04 10 
04t2 
0414 
0416 
0418 
0420 
0422 
0424 
0426 
0428 
0430 
0432 



3TX 


HIADR 


TXA 




SEC 




SBC 


«7 


TAX 




INC 


HIADR 


LDA 


CA9BUF 


JSR 


CKDOOM 


9TX 


CHRCNT 


JSR 


PUTCHR 


LDX 


CHRCNT 


INX 




CPX 


HIADR 


BNE 


GETIT 


LDA 


«CR 


JSR 


PUTCHR 


LDX 


HIADR 


CPX 


#128 


BCS 


EXIT 


JSR 


PREFIX 


JSR 


UPDATE 


JSR 


SPACE2 


LDY 


• 


LDX 


HIADR 


J MP 


D9PHEX 



!• VARIABLES 



ERRFLG 

SAVEX 

9AVEY 

CHRCNT 

UFLAB 

TOPSEC 

FILNUM 



l» SUBROUTINES* 



)•»• WRITE HEADER 
!«•• SUBROUTINE 



. DS 


1 


. DS 


1 


.DS 


1 


. D3 


1 


.DS 


1 


.DS 


t 


. D8 


1 



MSB 
DI3MSG 



F.NDM3G 
HEADER 



LDX #0 

LDA HEADER, X 

BEQ ENDMSG 

STX SAVEX 

JSR PUTCHR 

LDX SAVEX 

INX 

SEC 

BCS DISMSG 

RTS 

.BY CLS •BYTE*' 



■BY TAB TAB 
!•»• WRITE SPACES ••» 

l«>» SUBROUTINE •»• 

I 

BPACE2 JSR 3PACE1 

8PACE1 LDA «SP 

JSR PUTCHR 

RT8 
1 

!«•• CONVERT ASCI »•• 
(••• SUBROUTINE ••» 
I 



AND 


• »0F 


CMP 


• •0A 


BMI 


LT9 


ADC 


• 6 


ADC 


**30 


RTS 





>«.. CHECK BARBABE ♦»« 
!•»» SUBROUTINE »•» 

I 

CKDOOM CMP 0*20 

BCC 8UBPER 
CMP »»7D 
BCC OUT 

cmp »«aa 

BCC SUBPER 

CMP 0CR 

BCC OUT 

CMP «*A0 

BCC SUBPER 

CMP »»FD 

BCC OUT 

LDA »PERIOD 



SUBPER 
OUT 



RTS 



!»»• DISPLAY HEX BYTES «»» 
!•»• SUBROUTINE •»» 

I 

DISPLY JSR SAVXY 
LDA HIHEX 
JBR PUTCHR 

ONEBYE LDA LQHEX 
JSR PUTCHR 
JSR RESXY 



LOHEX 
HIHEX 



RTS 
. DS 

. OS 



SAVE COUNT 
BET THIS COUNT 

SET START FOR DUMP 

PUT IN X 

INC FOR COMPARE 

GET WHOLE BYTE 

STOP TROUBLE 

SAVE THIS COUNT 

CHARACTER TO SCREEN 

RESTORE X 

AND INCREMENT 

LIMIT REACHED? 

NO. .NEXT CHAR 

YES. .SO 

SKIP A LINE 

CK LIMITS 

DONE SECTOR? 

YEB. .GOODBYE 

PUT UP >0 

UPDATE BYTE CNT 

SKIP 2 SPACES 

ZERO Y COUNTER 

GET OLD X COUNT 

AND GET MO 3TUFF 



I ERROR FLAG 

I X SAVE 

I Y SAVE 

I STOREABE 

1 WRITE FLAG 



1 START AT 


ZERO 


1 GET BYTE 




1 IF ZERO 


SCRAM 


1 SAVEX 




1 DISPLAY 


CHAR 


1 RESTORE 


X 


1 ADD 1 




1 ALWAYS BRANCH! ' 


1 AD I OS' ! 





HEX" TAB TAB 'ATASCI' 



I GO HERE FOR 2 SPACES 

I LOAD A SPACE 

I AND DISPLAY 

1 THEN RETURN 



I CLEAR TOP NYBLE 

I IS A REB>97? 

1 NO. .ONLY ADD »30 

1 YEB. ADD 6 

I ADD »30 

I AND RETURN 



I A < SPACE7 

I YES 8UB PERIOD 

1 NO < 7D?7 

I YES PRINT 

I NO. .HOW ABOUT < »8« 

I YES. .SUB PERIOD 

I < »9B ?? 

I YES.. SCRAM 

I NO. . < *A07? 

I YES. .SUB PERIOD 

I N0. .HOW BOUT *FD 

1 YEB.. ELSE 

I LOAD A PERIOD 

I THFN RETURN 



SAVE XI Y REGS 

GET HI BYTE 

PUT ON SCREEN 

GET LO BYTE 

AND DISPLAY IT TOO 

RESTORE X&Y REGS 

THEN RETURN 

LO HEX STORE 

HI HEX STORE 



I ••• CONVERT BIN BYTE TO 2 HEX DIGITS »«» 



I »»• 
I 

CONVERT 



SUBROUTINE •»• 

PHA 

LSR A 

LSR A 

L9R A 

LSR A 

JSR CONASC 

STA HIHEX 



1 1ST SAVE A 

I EXTRACT 

I TOP NYBLE 

I AND SHIFT TO 

I BOTTOM NYBLE 

I CONVERT BIN TO ASCII 

1 STORE IT 
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0434 

0436 

0438 

0440 

0442 

0444 

0446 

0449 

0430 

0432 

0434 

043<h 

0438 

0460 

0462 

0464 

0466 

0468 

0470 

0472 

0474 

0476 

0478 

0480 

0482 

0484 

0486 

0488 

0490 

0492 

0494 

0496 

0498 

0300 

0302 

0304 

0306 

0308 

0310 

0312 

0314 

0316 

0318 

0320 

0372 

0324 

0326 

0328 

0330 

0332 

0334 

0336 

0338 

0340 

0342 

0344 

0346 

0348 

0330 

0332 

0334 

0336 

0338 

0360 

0362 

0364 

0366 

0368 

0370 

0372 

0374 

8376 

0378 

0380 

0382 

0384 

0386 

0388 

0390 

0392 

0394 

0396 

0398 

0600 

0607 

0604 

0606 

0608 

0610 

0612 

0614 

0616 

0618 

0620 

0622 

0624 

0626 

0628 

0630 

0632 

0634 

0636 

0638 

0640 

0642 

0644 

0646 

0648 

0630 

0632 

0634 

0636 

0638 

0660 

0662 

0664 



PLA 

JSR CONASC 

STA LOHEX 

RT8 

I 

■•** UPDATE BYTE COUNT •»• 

■••• SUBROUTINE »•• 

I 

UPDATE LDA LOADR 1 

CLC 1 

ADC »*08 I 

8TA LOADR I 

AROUND JSR CDNVERT I 

JSR DISPLY | 

RTS I 

LOADR .03 1 I 

HI ADR . DS 1 1 



!•»• SAVE XfcY REBI3TER8 »•• 
■••* SUBROUTINE »»» 
I 

3AVXY STX SAVEX 

STY SAVEY 

RT3 
RESXY LDX SAVEX 

LDY SAVEY 

RTS 



>••• PREFIX BYTES WITH >0 »•» 
!»•* SUBROUTINE »*» 
I 

PREFIX LDA •■ > 

JSR PUTCHR 
JUSHEX LDA »•• 

JSR PUTCHR 

RTS 

!«»• ML CHANGE BYTE ROUTINE »•♦ 
■•»• BASIC ENTERS HERE »•» 
CHNBBY PLA 

PLA 

STA •PA8E0*1 

PLA 

STA «PABE0 
INDEX LDY »2 

LDA (PAOE0I ,Y 

JSR MAKBIN 

TAX 

CLC 

ADC *«8 

STA CHRCNT 

I NY 
HX2BIN INY 

I NY 

LDA (PAQE0l,Y 

CMP »8P 

BNE NOTASC 

INY 

LDA (PA8E0I , Y 

BNE STUFIT 
NOTASC JSR MAKBIN 
STUFIT STA CASBUF.X 



I BET ORIBINAL 

I CONVERT IT 

I 8T0RE IT 

I AND RETURN 



INX 

CPX CHRCNT 

BCC HX2BIN 

PHA 

JMP MESA8E 

TEMP . DS 1 

l»»» ASCI HEX TO BIN • 

l»«» SUBROUTINE « 

I 

AS2BIN 3EC 

SBC «-0 

CMP 010 

BCC A8BIN1 

SBC 07 

ASBIN1 RTS 



* 


CDNVERT 2 AHCII HEX DIBITS 


M 


# 


TO A BINARY •. THE HI DIQIT 


* 


* 


COMES IN THE A RE8. THE L.0 


* 


* 


DIBIT IS EXTRACTED FROM THE 


■ 


* 


PAOE 9 PTR + Y REB. ROUTINE 


** 


* 


EXITS WITH BIN NUMBER IN A 


* 



PHA 




INY 




LDA 


(PABE0) 


JSR 


AS2BIN 


STA 


TEMP 


PLA 




JSR 


AS2BTN 


ABL 


A 


ABL 


fi 


A3L 


A 


ASL 


A 


ORA 


TEMP 



JPO 
DOB 



NT 
OTH 



RTS 

DIRECTORY DUMP STARTS HERE 

JMP DERR 

JSR CONVERT 

JSR DISPLY 
RTS 



REDIR JSR D3KVEC 

BMI JPONT 

LDA »L,CABBUF 

STA »PAGE0 

LDA »H,CASBUF 

STA «PAGE0-M 

FILOOP LDY 03 

LDX «0 

■••« NOW OFT FILE NAME •• 



BET LO BYTE 
CLEAR CARRY 
ADD B 
STORE AWAY 
CONVERT IT 
AND DISPLAY 
THEN RETURN 
BYTE COUNT LO 
BYTE COUNT HI 



I LOAD A CARAT 

I DISPLAY IT 

I LOAD HEX DESIGNATOR 

I DISPLAY IT 

I RETURN 



PULL OFF • VARS PASSED 

PULL OFF HI ADR 

STUFF IT 

NEXT?? 

STUFF IT 

SKIP >0 

HI HEX 

HEX ASCI 



TO BIN BYTE 

1 SAVE START INDEX 

I BET MAX COUNT 

I STORE IT 

I SKIP TO 

I NXT U3EABL BYTE 

I HI CHAR 

I IB IT SPACE' 

I NO.. HEX 

I YES. .BET CHAR 

1 IN A 

I AND STORE DIRECTLY 

I HEX ASCII TO BIN BYTE 

I STUFF IN BUFFER 

I DONE 8 BYTES 

1 NO. SET NXT 

I PUSH FOR EXIT 

I PUT UP NEW SCREEN 

I LO BIN VAL STORE 



I SUBTRACT 

I ASCII 

I A<107 

I YES JMP 

I ELSE SUB 7 

I AND RETURN 



I SAVE HI HEX DIQIT 

BET LO HEX DIB 
CONVERT 
STORE 

SET BACK HI 
CONVERT 
SHIFT 
IT 
UP 
TOP 

OR IN LO BYTE 
RETURN WITH BIN IN t 
♦ #♦ 

L0N8 BRANCH 

CON VAL IN A TO HEX 

AND DISPLAY 



READ SECTOR 

JUMP LONB ON ERROR 

LO BUF START 

STUFF 

HI START 

STUFF 

NAME START 

BUF INDEX 



0720 




LDA 


I'U 


USED LOAD - U' 


0722 




BTA 


FIL3TA+1 


3TUF 


0724 


CKLOCK 


LDA 


•LOCKED 


LOCK MASK 


0726 




BIT 


FILSTA 


IS IT7 


0728 




BEQ 


CKDOS 


NO CK DOS 


0730 




LDA 


»•• 


YES. LOAD •«■ 


0732 




STA 


FILSTAf 3 


STUF 


0734 


CKDOS 


LDA 


•DOSMSK 


DOS MASK 


0736 




BIT 


FILSTA 


D0S27 


0738 




BEQ 


D0S1 


NO D0S1 


0740 




LDA 


• • 2 


YES LOAD 2 


0742 




STA 


FILBTA+2 


STUF 


0744 




JMP 


OUTFIL 


AND OUT 


0746 


D0S1 


LDA 


• > 1 


LOAD t 


0748 




STA 


FIL8TA+2 


AND STUF 


0730 


!•»• FILE 


FORMATTED. . DUMP IT »•• 




0732 


OUTFIL 


JSR 


JUSHEX 


PUT UP A • 


0734 




LDA 


DAUX2 


OET SEC HI 


0736 


PUTSEC 


JSR 


DOONE 


DISPLAY LO NYBLE 


0738 




LDA 


DAUX1 


DSK SEC LO 


0760 




JSR 


DOBOTH 


DISPLAY 


0762 




JSR 


3PACE1 


3KIP SPACE 


0764 




LDX 


• 


SET INDEX 


0766 


DI3PFL 


LDA 


NAMBUF, X 


BET LTR 


0768 




JSR 


BAVXY 


SAVE IDX'S 


0770 




JSR 


PUTCHR 


PUT ON 8CRN 


0772 




JSR 


RESXY 


RESTORE X/Y 


0774 




INX 






0776 




CPX 


• 8 


DONE NAME? 


077B 




BCC 


DI8PFL 


NO. SET MO 


0780 




J BR 


BAVXY 


SAVE XfcY 


0782 




JSR 


SPACE 1 


1 SPACE 


0784 




JSR 


RESXY 


RESTORE XkY 


0786 


DOEXT 


LDA 


NAMBUF, X 


BET EXTENSION 


0788 




JSR 


SAVXY 


SAVE EH 


0790 




J8R 


PUTCHR 


DISPLAY 


0792 




JSR 


RESXY 


RESTORE 


0794 




INX 




INC COUNT 


0796 




CPX 


01 1 


BOT EXTENSION? 


0798 




BCC 


DOEXT 


NO. .SET ALL 


0B00 




JSR 


SPACE 1 


PUT UP SP 


0802 




JSR 


JUSHEX 


AND » 


0804 




LDA 


STASEC 


LOAD START 


0806 


PUTSTA 


JSR 


DOBOTH 


TO HEX 


0808 




LDA 


9TASEC+1 


START LO 


iSfiifl 




J SB 


DOBOTH 


DISPLAY 


0812 




JSR 


SPACE1 


SKIP 3 


0814 




JSR 


JUSHEX 


PUT UP • 


0816 




LDA 


FILEN 


FILE LEN HI 


0818 


PUTLEN 


JSR 


DOBOTH 


DISPLAY 


0820 




LDA 


FILEN-H 


FILE LEN LO 


0822 




JSR 


DOBOTH 


DISPLAY 


0824 




JSR 


8PACE2 


SKIP 3 


0826 




JSR 


JUSHEX 


PUT UP • 


0828 




LDA 


F I NUMB 


FILE NUMBER 


0B30 




JSR 


DOBOTH 


DISPLAY 


0832 




JSR 


BPACE2 


SKIP 2 


0834 


P3TATU 


LDX 


• 2 


CNT 2 


0666 


BETNAM 


LDA 


(PAGE0) , Y 


BET CHAR 


0668 




STA 


NAMBUF, X 


STUFF 


0670 




INY 




INC THE 


0672 




INX 




COUNTERS 


0674 




CPX 


• 1 1 


DONE WITH NAME? 


0676 




BCC 


BETNAM 


NO. BET MORE 


067B 




LDY 


• 


YES 


0680 


BETSTA 


LDA 


IPA8E0) , Y 


SET 3TATU3 BYTE 


0682 




STA 


FILSTA 


STORE 


0684 




INY 




NEXT BYTE 


0686 


9ETLEN 


LDA 


(PA8E0) , Y 


LEN LO 


0688 




STA 


FILEN*! 


STORE 


0690 




INY 






0692 




LDA 


(PABE0) , Y 


LEN HI 


0694 




STA 


FILEN 


STORE 


0696 




INY 






069B 


FI3TAR 


LDA 


(PABE0) , Y 


BET FI START 


0700 




STA 


3TASEC+1 


STUF 


0702 




INY 






0704 




LDA 


(PA8E0) , Y 


START HI 


0706 




STA 


STASEC 


STUF 


0708 


CKSTA 


BIT 


FILSTA 


ENTRY DELETED? 


0710 




BPL 


CKUSED 


NO. CK IF USED 


0712 




LDA 


• ' D 


DELETED LOAD "D" 


0714 




STA 


FILSTA+1 


STUF 


0716 




JMP 


OUTFIL 


THEN OUT 


071B 


CKUSED 


BVC 


OUTFIL 


IF NOT USED. OUT 


0B36 


PUTLTR 


LDA 


FILSTA»1 , X 


PUT UP STATUS 


0838 




JSR 


SAVXY 


SAVE KkY 


0840 




JSR 


PUTCHR 


PUT UP ASCI I 


0842 




J8R 


RESXY 


RESTORE X«.Y 


0844 




LDA 


• SP 


LOAD SPACE 


0B46 




3TA 


FILSTA-H, X 


CLEAR THIS STATUS 


0849 




DEX 




DECREMENT COUNT 


0830 




BPL 


PUTLTR 


BRANCH TILL DONE 


0832 




INC 


FINUMB 


INC FILE NUMBER 


0B34 




INC 


SECMAX 


AND FILEB/BECTOR CNT 


0836 




LDA 


• 8 


CLEAR OLD FILE ITEM3 


0838 




CMP 


SECMAX 


DONE 8 FILES? 


0860 




BEQ 


NXT3EC 


YEB-8ET NEXT SECTOR 


0B62 




LDA 


•PAQE0 


ELBE INC BUFFER POINTER 


0864 




CLC 




30 THAT WE 


0B66 




ADC 


#16 


SKIP 16 BYTES 


0668 




STA 


•PA8E0 


STORE NEW POINTER LOW 


0870 




BCC 


NOHIBY 


JUMP IF NO CARRY 


0872 




INC 


•PABE0+1 


ELSE INC HI PART OF POIN 


0874 


NOHIBY 


LDA 


»CR 


LOAD RETURN 


0876 




JSR 


PUTCHR 


DO IT 


0878 




JSR 


CLRNAM 


CLEAR NAME BUFFER 


0S80 




JMP 


FILOOP 


J. BET NXT FILE INFO 


0882 


NXTBEC 


LDA 


•CR 


EXECUTE A 


0B84 




JSR 


PUTCHR 


LINE FEED 


0886 




LDA 


DAUX1 


INC DSK IOCB 


0888 




CLC 




TO READ THE NEXT 


0890 




ADC 


• 1 


SECTOR 


0B92 




STA 


DAUX1 


THEN STORE 


0B94 




BCC 


NOFLIP 


INC HI 


0896 




INC 


DAUX2 


IF NEEDED 
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089H NOFL1P LDX #0 
0900 STX SECHAX 

0902 LDA TOSGLE 

0904 BNF. CLENUP 

0906 INC TORGLF. 

0908 JMP REDIR 

0910 I **«#«■*««»»*#» I «»«»« » 

0912 |» CLEAR NAME BUFFER • 

0914 l« SUBROUTINE • 
091A | »••••••««.••«••••«•»• 

0915 CLRNAM LDX Hit 
0920 LDA «3P 
0922 CLR9PA BTA NANBUF.X 
0924 DEX 

0926 BNE CLRSPA 

092B RTB 

0930 | »»»*•••»••♦»•»«••• 

0932 |* DIRECTORY DUMP • 

0934 |« EXITS HERE • 

0934 I »..»••»»••.«#.«»•• 

093B CLENUP DEC TOBBLE 
0940 JMP EXIT2 

0942 | •••*»•»«•»••♦»••»• 

0944 (» DIRECTORY DATA • 
094* 1 »»«••»»•••»»»•♦*»• 

0945 NAMBUF . DS 11 
0930 STASEC .DS 2 
0932 F1LEN . DS 2 

0934 FILSTA .BY 32 32 32 32 32 I 



093b 


TQBQLE 


. DS 


1 


0938 


SECMAX 


. DS 


I 


0960 
0962 
0028 


F I NUMB 


. DS 


1 






.FI 


"D: dmpuniv 


1004 


!• 


CHANGE 


SECTOR LINKS • 


1006 


| •«•««•«**«*«**«»«#*»#•« 


1008 


ENTLNK 


JSR 


DSKVEC 


1010 






BPL 


CHGLNK 


1012 






JMP 


DERR 


1014 


CHBLNK 


JSR 


WEIRD 


1016 






JMP 


EXIT2 


1018 


NEWLNK 


LDA 


FILNUM 


1020 






ROL 


A 


1022 






ROL 


A 


1024 






ORA 


TOPBEC 


1026 






STA 


CASBUF* 123 


1028 
1030 
1032 






JMP 


EXIT2 


1 ■ 


EXTRACT 


HI/LO • 


1034 


1 « 


NEXT SECTOR • 


1036 


? « 


SUBROUTINE 


« 


1038 


; N 


THIS AVOIDS 


A • 


1040 


I * 


HORRENDOUS BUB« 


1042 


I » 


OF TYING UP 


• 


1044 


1 » 


THE STACK <AT • 


1046 
1048 
1030 


1 « 


LEAST I 


HOPE) « 


1 








1032 


WEIRD 


LDA 


CA8BUF+12S 


1034 






PHA 




1036 






AND 


• *03 


1038 






STA 


TOPBEC 


1060 






PLA 




1062 






LBR 


ft 


1064 






L8R 


A 


1066 






STA 


FILNUM 


1068 






RTS 




1070 


!••»» TRACE SECTOR3 ENTER 


1072 


TRASEC 


LDA 


CONTIN 


1074 






BE8 


NOCON 


1076 






PLA 




1078 






JMP 


8ETY 


1080 


NOCON 


PI A 




1082 






PLA 




1084 






STA 


DAUX2 


1086 






8TA 


DINUMH 


10B8 






PLA 




1090 






STA 


DAUXI 


1097 






STA 


DINUML 


1094 






PLA 




1096 






STA 


• PABF0-M 


I09B 






PLA 




1 100 






STA 


•PAOE0 


1102 






PLA 




1104 






PLA 




1 106 






STA 


FINUMB 


1108 






JSR 


DSKVEC 


1110 






BFL 


NOERR 


1112 


ERRTRP 


JMP 


RDERR 


1114 


NOERR 


LDX 


• 11 


1 1 16 






LDY 


• 13 


1118 


LOAD1 


LDA 


<PABE0) ,Y 


1 120 






STA 


NAMBUF- 1 , X 


1 122 






DEY 




1124 






DEX 




1126 






BNE 


LDADIT 


1 128 






LDA 


<PA6E0) , Y 


1 130 






STA 


DAUX2 


1132 






DEY 




1134 






LDA 


(PABE0I , Y 


1 136 






STA 


DAUX 1 


1 13B 






DEY 




1 140 






LDA 


(PAGE0) , Y 


1 147 






STA 


FILEN*! 


1 144 






DEY 




1146 






LDA 


(PABE0) . Y 


1 14B 






STA 


FILEN 


1 130 






DEY 




1132 






LDA 


RECOVR 


1 134 






BED 


STCHK 


1 136 






JMP 


DOREC 


1 138 


STCHK 


LDA 


(PAGE0) , Y 


1 160 






BEQ 


NOF.NT 


1 162 






STA 


FILSTA 



I CLEAR FILE CNT 

I DONE 2 SECTORS? 

I YE8 CLEAN UP OUR ACT 

I NO.. BET FOR NEXT TIME TH 

I AND BO READ NEXT SECTOR 



I 11 CHARACTERS 

I ONE SPACE 

I CLEAR IT 

I GET EVERYTHINB' 

I TILL DONE 

I THEN RETURN 



I CLEAR TOBBLE LOCATION 

I AND THEN JUMP BACK TO BA 



I FILE NAME BUF 

I START SEC HI/LO 

I FILE LEN HI/1.0 
FILE STATUS 

I INFAMOUS T08GL.ER 

I FILE COUNTER 

I THIS FILE • 



I READ SECTOR 

I JMP GOOD READ 

I ELSE ERROR 

I BREAK UP FlfcSECTOR 

I AND RETURN 

I BET NEW FILE 

I ROLL IT 2 

I BITS LEFT 

I OR IN HI SECTOR 

I 8TUFF BACK 

I AND RETURN 



GET WEIRDO 
STUFF AWAY 
MASK OFF BITS 2-7 
STUFF HI BY 
BET STUFFED BYTE 
RIBHT JUBTIFY 
FILE NUMBER 
STUFF IT 
BO HOME 
»** 

FIRST TIME? 
YES. .DO PULLS 
JUST PULL VAR PASSED 
NO. .NO PULLS 
PULL OUT VAR CNT 
PULL START HI 
STORE FOR READ 
STO FOR RECOV 
GET START LO 
STORF FOR READ 
STO FOR RECOV 
INDEX HI 
STORE 
INDEX LO 
3T0RE 
FILE* HI 
FILE* LO 
STORE IT 
READ SECTOR 
BRANCE NO ERROR 
ERROR. . JUMP 
NAME COUNT 
INDEX CNT 
BET LETTER 
STUFF IT 1 
DEC Y 
AND X 
BET MORE 
BET START LO 
STUFF 

GET LO 
BTUF 

GET FI LFN HI 
SAVE FOR CKS 

FI LEN LO 
BAVE IT TOO 

ARE WE DOING RECOV F I L ? 

NO. . CHECK STATUS 

YEB. .DO RECOVER' 

GET STATUS 

IF ZERO, NO ENTRY 

STORE IT 



1 164 




BIT 


FILSTA 


1 FILE DELETED?? 


1 166 




BPL 


ITSUSD 


1 NO. . ITS USED! ' 


1 168 




JSR 


DISNAM 


1 YEB.. PUT NAME 


1 170 




9TX 


ERRFLO 


1 NOTE ERROR 


1 172 




JSR 


DELETE 


PUT DEL MSG 


1174 




JMP 


EX1T2*1 


AND SCRAM 


1 176 


NOENT 


LDX 


•H.NOMSG 


1 M88 ADDR 


t 178 




LDY 


•L, NOMSQ 




1 180 




JSR 


FLIPIT 


DISPLAY MSB 


1 182 




LDA 


FINUMB 


FILE NUMBER 


1 184 




J BR 


DOBOTH 


1 DISPLAY 


11B6 




JMP 


COMMEX 


1 COMMON ERROR EXIT 


1 IBS 


!»»«» FILE USED PUT UP 


»»•• 


1 190 


IT3USD 


LDX 


•H.NAME 


1 MSB ADDR 


1 192 




LDY 


•L.NAME 


1 HI/LO 


1 194 




JSR 


FLIPIT 


DISPLAY 


1 196 




JSR 


DISNAM 


PUT UP NAME 


1 198 




LDX 


•H.SECMSO 


MS8 ADDR 


1200 




LDY 


•L.SECMSG 




1 202 




JSR 


FLIPIT 


FLIP M8GS 


1204 




LDA 


DAUX2 


GET TRUE 3TART SECTOR 


1206 




JSR 


DOONE 


DISP HEX 


1208 




LDA 


DAUXI 


GET LO 


1210 




JBR 


DOBOTH 


DISPLAY TOO 


1212 


SETY 


LDY 


• 16 


DO 17 LINES 


1214 




8TY 


YCNT 


1 SAVE CNT 


1216 


DORETN 


LDA 


• CR 


> CARR RET 


121B 




JSR 


PUTCHR 


1 DISPLAY 


1220 




LDX 


• 7 


B SECTORS/LINE 


1 222 




STX 


XCNT 


SAVE IT 


1224 


DOREAD 


JSR 


DSKVEC 


READ SECTOR 


1226 




BPL 


DRIVON 


JMP GOOD READ 


1228 




JMP 


RDERR 


BAD READ' ' 


1230 


DRIVON 


JSR 


WEIRD 


EXTRACT WEIRD BYTE 


1232 




INC 


FILCNT 


INC COUNTER 


1234 




BNE 


BOON 


NO WRAP YET 


1236 




INC 


FILCNT-M 


ELSE INC HI 


1238 


OOQN 


LDA 


FILNUM 


GET THIS FILE • 


1240 




CMP 


FINUMB 


SAME AS 1 WE SEEK?? 


1242 




BNE 


OOPS 


NO' M OOPS. . 


1244 




LDA 


CASBUF+126 


BET LO PTR 


1246 




ORA 


TOPSEC 


OR WITH HI BYTE' ' 


124B 




BED 


WEDONE 


IF ZERO THEN DONE 


1230 




JSR 


SETUP 


ELBE SETUP FOR NXT RE<= 


1232 


D0A3EC 


JSR 


SECDIB 


DISPLAY TRACE SECTOR 


1234 




DEC 


XCNT 


DEC CNTR 


1236 




BPL 


DOREAD 


IF NOT DONE B THEN GET 


1238 




LDA 


• 1 


ELSE SETUP NXT LINE 


1260 




8TA 


FAKFl.G 


FOR ONLY • 


1262 




DEC 


YCNT 


DEC LINE CNT 


1264 




BPL 


DDRETN 


IF NOT 16 80 BACK 


1266 




8TA 


CONTIN 


ELSE SET CONTINUE FLG 


1268 




JMP 


EXIT2M 


AND ESCAPE.. WE WILL RE 


1270 


OOPS 


JSR 


CLRNAM 


CLEAR NAME 


1272 




LDX 


•H,LINKER 


MSB ADDE 


1274 




LDY 


•L.L1NKER 




1276 




JSR 


FLIPIT 


DISPLAY 


1278 


ONMOER 


JBR 


JUSHEX 


PUT UP • 


I2B0 




IDA 


DAUX2 


HI SEC 


1282 




JSR 


DOONE 


DISP JUST LO 


1284 




LDA 


DAUXI 


LO SEC 


1286 




JSR 


DOBOTH 


DISPLAY 


1288 


LASMSO 


LDX 


•H.ODAMSG 


MSB HI 


1290 




LDY 


•L.ODAMSB 


MSB LO 


1292 




JSR 


FLIPIT 


PUT IT UP 


1294 


COMMEX 


LDA 


• 1 


RESTORE FAKE 


1296 




STA 


ERRFLG 




1298 


CLRFAK 


STA 


FAKFLG 


RESET FAKE 


1300 




LDA 


• 


CLR CONTIN 


1302 




8TA 


FILCNT 


CLEAR COUNTR 


1 304 




STA 


CONTIN 




1306 




STA 


FILCNT* 1 


HI CLR 


1308 




JMP 


EXIT2+1 


AND SCRAM 


1310 


WEDONE 


LDA 


FILEN 


GET ORIGINAL LO 


1312 




EOR 


FILCNT 


OR WITH COUNTER 


1314 




BNF 


SORRY 


IF NOT ZERO. . SORRY 


1316 




1. DA 


FILEN* 1 


DO HI NOW 


1318 




EOR 


FIL.CNT+I 


OR THEM 


1370 




BNF 


SORRY 


SAME AS ABOVE 


1327 




STA 


FILCNT 


CLR FOR NXT TIME 


1324 




STA 


FILCN1 H 




1326 




LDX 


•H.STOPMS 


ANNOUNCE ME DONE 


132B 




LDY 


•L , BTOPHS 


TO THE WORLD 


1330 




JBR 


FLIPIT 


DO IT 


1332 




LDA 


• CR 


CARR RET 


1334 




JBR 


PUTCHR 


DO IT 


1336 




LDA 


• 1 


LOAD TO CLR 


1338 




JMP 


CLRFAK 


EXIT GRACIOUSLY 


1340 


SORRY 


LDX 


•H.FILMSG 


MSB ADDR 


1342 




LDY 


•L.FILMSG 




1344 




JBR 


FL IP1T 


PUT IT UP 


1346 




LDA 


FILEN* 1 




134B 




JSR 


DOBOTH 




1330 




LDA 


FILEN 




1337 




JSR 


DOBOTH 




1334 




LDX 


•H.FIMSG1 


NEXT 


1336 




LDY 


»L,FIMSG1 




1338 




JSR 


FLIPIT 


DISPLAY 


1360 




LDA 


FILCNT*! 




136 2 




JSR 


DOBOTH 




1364 




LDA 


FILCNT 




1366 




JSR 


DOBOTH 




1368 




LDX 


•H.FIMSB2 


LAST 


1370 




LDY 


«L ,FIMSG2 




1372 




JSR 


FLIPIT 


DISPLAY 


1374 




LDA 


• 


CLEAR FILCNT 


1376 




STA 


FILCNT 




1378 




STA 


FILCNT-M 




1 380 




JMP 


COMMEX 


NOW EXIT W/ERROR 


1382 










1384 


1 « MORE 


SUBROUTINES • 




1386 
1388 
1390 


'« 


FOLLOW 


» 




V 








1392 


FLIPIT 


LDA 


DISMS6*1 


OLD PTR 


1394 




STA 


TEMPI 
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POINT TO 

NEW MSP 

PUT UP THE MSB 

RESTORE OLD 

H8G POINTER 



RESTORE X«.Y 
ALSO 

THEN RETURN 
SECTOR MSB 
STORE FOR NXT 
SECTOR LBB 
STORE FOR NXT 
AND RETURN 
START AT ZERO 
GET LETTER 



READ 



READ 



DISPLAY 



I 80 BACK. .JACK 



POINT TO 
DELETED 
DISPLAY 
RETURN 



DISPLAY 
SECTOR HI 
DISPLAY 
SECTOR LO 
DISPLAY 
LINE FEED 
DO IT 
AND EXIT 



1396 LDA D1SNSB»2 

1398 STA TEMP? 

1400 STY DISMSO-M 

1402 9TX DISMSB+2 

1404 JSR MSG 

1406 LDA TEMPI 

140B STA DISNBG+1 

14 10 LDA TEMP2 

1412 STA D18M8B+2 

1414 LDX TEMPX 

1416 LDY TEMPY 

1418 RTS 

1420 SETUP LDA TOPSEC 

1422 STA DAUX2 

1424 8ETUP2 LDA CA8BUF-M26 

1426 STA DAUX1 

1428 RTS 

1430 DISNAM LDX 00 

1432 BETMOR LDA NAMBUF , X 

1434 JBR SAVXY 

1436 JSR PUTCHR 

1438 JSR RESXY 

1440 INX 

1442 CPX #11 

1444 BCC 8ETM0R 

1446 RTS 

1448 I *••••••••«»»•»»•••»»•• 

1430 I* HERE ARE THE MSBS • 

1432 I •««»»•»»»»•»»»•*»»«»«» 

1434 I 

1436 NAME .BY -FILE: ' NULL 

1438 8ECMS0 .BY 9P BP 8P BP ' START SECTOR: »■ NULL 

1460 DELMSG . BY ■ 19 DELETED'!' BELL BELL CR NULL 

1462 LINKER .BY CR 'FILE NUMBER MISMATCH AT 8ECT0R' E8C 

1464 .BY NULL 

1466 0DAM3G .BY CR 'CHECK PREVIOUS SECTOR LINKS!!' 

1468 -BY BELL BELL NULL 

147B RDMSB .BY 'CANNOT READ SECTOR:' ESC RAR "»' BELL 

1472 NOMBB .BY CR 'NO ENTRY FOR FILE - ESC RAR '»' BELL 

1474 STORMS .BY SP 'END" NULL 

1476 FILMSG .BY CR "ORIGINAL SECTOR COUNT" 

147B FIMSB1 .BY CR 'ACTUAL SECTORS LOADED' 

1480 F1MSB2 .BY CR 'SHORT FILE ERROR 

1482 DELETE LDX •H,DELMS8 

1484 LDY »L,DELMSB 

I486 JSR FLIPIT 

1488 RTS 

1490 RDERR LDX «H, RDMSB 

1492 LDY «L,RDM98 

1494 JSR FLIPIT 

1496 LDA DAUX2 

1498 JSR DOONE 

1300 LDA DAUX1 

1307 JSR DOBOTH 
1304 LDA «CR 
1306 JSR PUTCHR 

1308 JMP COMMEX 
1310 I »»»»»».*«»»»«•••••«»« 
1312 !• TRACE SECTOR VARS • 
1314 !•*«»**»*«**•*»•»*••»• 
1316 XCNT .BY 
131B YCNT .BY 
1320 TEMPI .BY 
1322 TEMP2 .BY (9 
1324 TEMPX .BY 
1326 TEMPY .BY 
1328 C0NT1N . BY 
1330 FILCNT .BY 
1332 | ♦«».«••••»•»•••»«•»••••»••• 
1334 |« THIS SUBROUTINE DISPLAYS 
1336 I* THE SECTOR TRACE IN THE 
133B ;« FORM >*XXX. DEPENDING ON 
1340 |* THE FAKFLB VALUE THE 18T« 

1347 1» VALUE OF EACH LINE MILL 
1344 | • BE OF THE FORM 0XXX. 
134 6 | «*•»«••»»•« •»»«»»»«*»»•»»»» 

1348 SECDIS J8R 9AVXY 
1330 LDA FAKFLB 
1332 BEO DOPREF 
1334 JSR JU8HEX 
1336 JMP FAKEONE 
1338 DOPREF LDA »ESC 
1360 JBR PUTCHR 
1362 LDA »RAR 
1364 JSR PUTCHR 
1366 JBR JU9HEX 
1368 FAKEONE LDA TOPSEC 
1370 J8R DOONE 
1372 LDA CASBUF*126 
1374 JSR DOBOTH 
1376 LDA «0 
1378 8TA FAKFLB 
1380 RT9 

1387 !••••■••••■ 
1384 FAKFLB .BY 1 
1386 | •»«**»»*»• 

1388 I 
1390 | ••••••••••••••••IF 

1392 !« PRINT 1 BYTE • 

1394 !•••»•••»•••»»«••» 

1396 DOONE JBR CONVERT 
1398 JSR ONEBYE 

1600 RT8 

2000 | •»•*•••»••»»•••»••«»»»•»• 

2003 I* IOCB HANDLER CODE FOR « 

2010 |< DISKTOOL. THIS CODE MAS* 

2013 |« WRITTEN TO GET RID OF * 

2020 >» THE UNAUTHORIZED CALL • 

2023 1* TO THE PUTCHR ROUTINE.* 

2030 |« THIS CAUSED PROBLEMS • 

2033 l« ON THE 1200XL AND WAS • 

2040 |» NOT A CORRECT METHOD « 

2043 |« FOR WRITING A CHARAC- • 

2030 !» TER TO THE SCREEN. • 

2033 l» THE CIO WAY IB MORE • 

2960 l« FLEXIBLE AND SHOULD AL» 



SAVE XJ.Y 

ONLY »XXX THIS TIME? 

NO-DO >» 

YEB-JU9T* 

THEN JUMP 

SEND ESC FIRST 

SEND IT 

LOAD RIGHT ARROW CHAR 

SEND IT 

PUT UP • 

GET UPPER NYBLE 

DISPLAY ONLY LO NYBLE 

BET LO BYTE 

DISPLAY IT 

LOAD ZERO 

CLEAR FAKFLB 

AND RETURN 

I INITIALLY ONE 



CONVERT TO ASCII 
DISPLAY LO NYBLE ONLY 
AND RETURN 



IOCB 4*16 
START IOCB BLK8 
HANDLER ID 
DEVICE • 
COMMAND BYTE 
STATUS BYTE 
BUFFER ADDR LON 
BUFFER ADDR HIGH 
POINTER LO 
POINTER HI 
BUFr LEN LOW 
BUFF LEN HI 
AUX BYTE 1 
AUX BYTE 2 



I IOCB INDEX 

I GO TO CIO HANDLER 

I THEN RETURN 



2063 |* LOW DISKTOOL TO RUN ♦ 
2070 |» WITH ALL ATARI PROD- • 
2073 |* UCTB IN THE FUTURE....* 
20B0 | ••»••»«••»«»«•••«•«»•»««« 

20B5 | 

2090 I »»•*••»*•••««••»•••»«•« 

2095 I « IOCB EQUATES FOLLOW • 

2100 I «••»»»»»••»»••»•«••»»••* 

2105 I 

2110 IOCB4 . DE *40 

2113 I0CB8T .DE »0340 

2120 ICHID . DE IOCBBT 

2123 ICDNUM . DE ICHIDH 

2130 ICCOM . DE ICDNUM* 1 

2133 ICSTA . DE ICCOM-fl 

2140 ICBAL . DE ICSTA* I 

2143 ICBAH .DE ICBAL-M 

2130 ICPTL .DE ICBAH+1 

2133 ICPTH .DE ICPTl.tl 

2160 1CBLL .DE ICFTHtl 

2163 ICBLH . DE ICBI.L+t 

2170 ICAX1 . DE ICBLHfl 

2173 ICAX2 .DE ICAX1-H 

21B0 I 

21B5 | 4 SPARE UN-LABELED BYTES FOLLOW IN IOCB 

2190 CIOVEC .DE »E436 I CIO ADDRESS 

2195 CLOSE . DE »0C I CLOSE COMMAND 

2200 OPEN .DE *03 I OPEN COMMAND 

2203 GETCHR . DE »07 I GET CHAR CMND 

2210 PUTCAR .DE »0B I PUT CHAR CMND 

2213 8ETREC . DE »03 I GET RECORD CMND 

2220 PUTREC . DE »09 I PUT REC CMND 

2223 WRITE . DE »0B I WRITE (FOR OPEN) 

2230 READ -DE »04 I READ (FOR OPEN) 

2233 SPLIT . DE »10 1 SPLIT SCREEN 

2240 D8PEC .BY 'E:' CR I EDITOR DEV 

2243 i 

2230 (•(►•••••••••••»«»«»«»« 

2233 1 • NEW PUTCHR SUBRTN • 

2260 !«•»*•»•»»*»••♦•»»»»»« 

2263 I* A REG HAS CHARACTR* 

2270 |«»»**»«»»»««»««»*»»»« 

2273 I 

2280 PUTCHR LDX VI0CB4 

2283 BOCIOV JSR CIOVEC 

2290 RTS 

2293 I 

2300 | «••»•»»»••«»»••••»»»«» 

2303 |» INITIALIZE IOCB 04 • 

2310 i «•••»»•»»»*»»*«»••»»«• 

2313 I 

7320 CLRIOC4 LDX «IOCB4 

2323 LDA •CLOSE 

2330 STA ICCOM, X 

2333 JSR CIOVEC 

2340 LDX (IOCB4 

2343 0PN10C4 LDA «OPEN 

2330 STA ICCOM, X 

2333 LDA •L.DSPEC 

2360 STA ICBAL, X 

2363 LDA fH,D8PEC 

2370 STA ICBAH, X 

2373 LDA «WRITE 

23B0 STA ICAX1.X 

2383 JBR CIOVEC 

2390 I 

2393 | • •••••«•«•»»«»•«••«»»«• ••»•»•• 

2400 l» SET UP I0CB4 BO THAT WE CAN 

2403 l« PASS THE CHARACTER TO DIS- 

2410 l« PLAY IN THE A REGISTER. THIS 

2413 l» IB DONE BY USING THE PUTCAR 

2420 l« COMMAND AND ENSURING THAT 

2423 l« THE BUFFER LENGTH 18 ZERO.. 

2430 !• •»««»•»«»•»»•»• •••»»•«»»««»«« 

2433 I 

2440 LDX VI0CB4 

2443 SET4 LDA tPUTCAR 

2430 STA ICCOM, X 

2433 LDA «0 

2460 STA ICBLL, X 

2463 STA ICBLH, X 

2470 PLA 

2473 RTS 

3003 I •»«»»•«••»«»««••••«•••»••*»««• 

30 10 )• RECOVER FILE CODE FOLLOWS 

3013 I «•«««••»«••»*•«••»»»••»•»«•••« 

3020 l« THE ACTUAL RECOVER ENTRANCE 

3023 l« IB AT LABEL NOCON. IN THE 

3030 I« BA3IC PART OF DISKTOOL THE 

3033 !« RF.COVR FLAG IS SET BO THAT 

3040 (« THE PROGRAM WILL JUMP HERE 

3043 1« THIB WAS DONE TO SAVE SOME 

3050 |« CODE REPETITION. 

3035 !••••• »•«••♦««••»•••»••»••»•*•« 

3060 DCOMM .DE 770 

3065 DBUFLO . DE 772 

3070 DBUFH1 .DE 773 

3073 1 

3080 ST3ECL . BY 

3083 8TSECH .BY 

3090 RECOVR .BY 

3093 DINUMI. .BY 

3100 DINUMH .BY 

3105 VTOC .DS 132 

3110 I 

3113 DOREC STY TEMPY 

3120 LDA DAUX2 

312.3 STA STSECH 

3130 LDA DAUX1 

3133 STA 8TSECL 

3140 LDX «H,VTOC 

3143 LDY »L,VTOC 

3130 STX DBUFHI 

3133 STY DBUFLO 

3160 LDX «*68 



INDEX TO »4 

CLOSE COMMAND 

STUFF COMMAND 

CLOSE IT 

RE8ET X 

OPEN COMMAND 

STUFF IT 

LOAD ADDR TO E: 

BTUFF IT 

ADDR H 

STUFF 

WRITE ONLY 

BTUFF 

GO TO CIO HANDLER 



REBET X 

PUT CAR CMND 

BTUFF 

ZAP BUF LEN 

ZAP 

ZAP 

CLEAR 8TACK 

RETURN TO BASIC 



COMMAND BYTE 
DSK BUF PTR LO 
DBK BUF PTR HI 

SEC LO STORE 
SEC HI STORE 
RECOVER FLAG 
DIRECTORY NUM LO 
AND HI 
132 BYTE BUFFER 

9AVE STATU8 INDEX 

GET DIR SEC HI 

BAVE IT 

GET DIR SEC LO 

SAVE IT 

ALT BUF HI ADDR 

ALT BUF LO ADDR 

3TUF IN IOCB 

ALBO LO 

VTOC 8ECT0R 360 
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LDY 


»»01 1 


3170 






STY 


DAUX2 1 


3173 






8TX 


DAUX1 1 


3180 






JSR 


DSKVEC 1 


3183 






BPL 


RESBUF 1 


319a 






LDX 


•H.VRBAD I 


3193 






LAY 


•L.VRBAD 1 


3200 






JSR 


FLIPIT ) 


3203 






JSR 


CLRNAM 1 


3210 






J MP 


RDERR 1 


3213 


RE3BUF 


JSR 


RESDSK I 


3220 
3223 
3230 
3233 
3240 


1 








1 » 


RESTORE INDEX AND CK STATUS » 


1 








3243 






LDY 


TEMPY 1 


3230 






LDA 


(PA8E0) , Y I 


3233 






BNE 


STOFIL 1 


3260 






J MP 


NOENT 1 


3263 


STOFIL 


STA 


FIL9TA 1 


3270 






BIT 


FILSTA 1 


3273 






BPL 


FIUSED 1 


3280 






LDX 


•H.PA3S1 1 


3283 






LDY 


•L.PAS31 1 


3290 






JSR 


FLIPIT | 


3293 
3300 
3303 
3310 

3113 


f 








; • 


TRACE 


SECTORS FOR CONTINUITY* 


1 








3320 






LDA 


STSECH 1 


3323 






STA 


DAUX2 1 


3330 






LDA 


STSECL < 


3333 






STA 


DAUX1 1 


3340 


VERIFY 


JSR 


DSKVEC ■ 


3343 






BPL 


V80 1 


3330 






JSR 


OISNAM I 


3333 






JSR 


CLRNAM t 


3360 






LDX 


•H.FIRDE | 


3363 






LDY 


•L.FIRDE | 


3370 






JSR 


FLIPIT 1 


3373 






J MP 


RDERR | 


3380 


VOO 


JSR 


WEIRD 1 


3383 






INC 


FILCNT 1 


3390 






BNE 


VBOON | 


3393 






INC 


FILCNT+1 1 


3400 


VGOON 


LDA 


FILNUM | 


3403 






CMP 


FINUMB 1 


34 10 






BNE 


NOREC 1 


34 13 






LDA 


CASBUF+126 | 


3420 






ORA 


TOPSEC | 


3423 






BED 


CKSECN I 


3430 






JSR 


SETUP | 


3433 






JMP 


VERIFY | 


3440 
3443 
3430 
3433 
3460 


1 








1 ■ 


PASS1 


ERROR 


PR0CESSIN8 HERE * 


1 








3463 


FIUSED 


JSR 


DISNAM | 


3470 






LDX 


•H,NODEL | 


3473 






LDY 


•L, MODEL | 


3480 






JSR 


FLIPIT 1 


3483 


EUSE 


JMP 


COMMEX I 


3490 


NOREC 


LDX 


•H, LINKER | 


3493 






LDY 


»L, LINKER I 


3300 






JSR 


FLIPIT 1 


3303 






JSR 


JUSHEX | 


3310 






LDA 


DAUX2 | 


3313 






JSR 


DOONE ) 


3320 






LDA 


DAUXl | 


3323 






JSR 


DOBOTH I 


3330 






LDA 


• CR 1 


3333 






JSR 


PUTCHR | 


3340 






LDX 


•H.NAME I 


3343 






LDY 


*L,NAME 1 


3330 






JSR 


FLIPIT 1 


3333 






JSR 


DISNAM | 


3360 






LDX 


•H.NORECO | 


3363 






LDY 


•L.NORECO | 


3370 






JSR 


FLIPIT 1 


3373 






JSR 


CLRNAM I 


3380 






BEQ 


EUSE t 


3383 


DOOM 


JSR 


DISNAM I 


3390 






JSR 


CLRNAM ■ 1 


3393 






LDX 


•H.NORECO | 


3600 






LDY 


•L.NORECO 1 


3603 






JSR 


FLIPIT | 


3610 






JMP 


SORRY | 


3613 
3620 
3623 


1 








I * 


CHECK 


TO SEE THAT LENBTH IN » 


3630 
3633 
3640 


* # 


DIRECTORY MATCHES LEN OF FIL» 


, 








3643 


CKSEC 


LDA 


FILEN 1 


3630 






EOR 


FILCNT | 


3633 






BNE 


DOOM | 


3660 






LDA 


FILEN+1 1 


3663 






EOR 


FILCNT+1 1 


3670 






BNE 


DOOM 1 


3673 






STA 


FILCNT 1 


3680 






STA 


FILCNT+1 | 


3683 
3690 
3693 
3700 
3703 


t 








1 ■ 


BEGIN 


PASS 2 OF FILE RECOVER* 


1 








3710 


PASS2 


LDX 


• H.OK 1 


3713 






LDY 


• L.OK 1 


3720 






JSR 


FLIPIT | 


3723 
3730 
3733 
3740 


1 








i ■ 


BET DIRECTORY FOR OUR FILE • 



IS «016B 

STUFF MSB 

STUFF L8B 

LOAD VTOC INTO ALT BUFFE 

IF NO ERROR RESTORE OLD 

MSB HI ADR 

LO ADR 

DISPLAY IT 

CLEAR NAME 

ELSE EXIT N/ERROR 

RESTORE DSK IOCB 



RESTORE INDEX 

BET STATUS 

JMP IF ENTRY 

ERROR SO JMP 

ELSE SAVE STATUS 

FILE DELETED FOR SURE77 

NO!! USER PLAYINS TRICKS 

OK. . ITS DELETED 

NOTIFY USER WHATS HAPNIN 

DISPLAY MSB 



RESTORE SEC HI 

STUF IN IOCB 

GET SEC LO 

STUF IT TOO 

BET A SECTOR 

JMP 800D READ 

DIPLAY NAM 

CLR NAME 

MSB HI ADR 

MSB LO ADR 

DISPLAY MSB 

EXIT W/ERROR 

EXTRACT LO/HI NXT SECTOR 

INC SECTOR COUNTER 

BRANCH NO WRAP 

ELBE INC HI 

GET FILE • TO WHICH SEC 

SAME AS 1 WE SEEK? 

NO.. FILE NOT RECOVERABLE 

YES. BET 1.0 POINTER 

OR WITH HI SECTOR 

IF ZERO.. TRACE IS DONE 

ELSE SETUP NXT READ 

AND BET NXT SECTOR 



DISPLAY FILE NAME 

MSB HI 

MSB LO 

DISPLAY IT 

EXIT WITH ERROR 

MSB HI 

MSB LO 

DISPLAY 

PUT UP A • 

HI SEC • 

DISPLAY ONLY LO NYBLE 

LO SEC NUM 

DISPLAY WHOLE THINB 

LOAD CRET 

DISPLAY 

FILE: MSB 

LO ADDR 

PUT UP MSB 

PUT UP FILE NAME 

NON-RECOVER MSB HI 

MSB LO 

DI8PLAY 

CLEAR FILE NAME 

EXIT W/ERROR 

DISP NAME 

CLR NAME 

ADR HI 

ADR LO 

DISPLAY IT 

CONTINUE ER 



ORIGINAL LO 
OR W/COUNT 
NO. . ERROR 
ORIS HI 
OR ALSO 
80 IF ERROR 
CLR COUNTER 
LO/HI 



OK MSB HI 
AND LO 
DISPLAY 



3743 


> 












3730 








LDA 


OINUML 1 


LO BYTE 


3735 








STA 


DAUXl 1 


STUFF IT 


3760 








LDA 


DINUMH I 


HI BYTE 


3763 








STA 


DAUX2 i 


STUFF IT 


3770 








JSR 


DSKVEC 1 


BO READ IT 


3773 








BPL 


CHKDOS 1 


JMP BOOD RD 


3780 








LDX 


•H.DIRDE 1 


MSB HI 


37S3 








LDY 


•L.DIRDE 1 


MSB LO 


3790 








JSR 


FLIPIT 1 


DISPLAY IT 


3793 








JSR 


CLRNAM 1 


CLR NAME 


3B00 








JMP 


COMMEX 


ELSE EXIT 


3803 


CHKDO 




LDY 


• 1 


CLEAR Y REB 


3Bt0 








LDA 


VTOC 1 


BET VTOC DOS 


3813 








CMP 


•DOSMSK 


IS IT DOS 27 


3820 








BNE 


D0S1FL 


NO. . DOS 1 


3023 








LDA 


• *4 2 


LOAD FILE USED 


3B30 








BNE 


STOSTA 


AND BRANCH 


3833 


D0S1FL 




LDA 


• •40 


ELSE ONLY USED 


3840 


9T0STA 




STA 


(PABE01 , Y 


STORE NEW STATUS 


3843 








LDA 


• 'M 


LOAD WRITE COMMAND 


3830 








STA 


DCOMM 


STUFF IN DSK IOCB 


3833 








JSR 


DSKVEC 


NRITE OUT DIR SEC 


3S60 








BPL 


WFINE 


JMP BOOD WRITE 


3865 








JSR 


RESDSK 


RESTORE DSK IOCB 


3870 








JSR 


CLRNAM 


ERROR CLR NAME 


3873 








LDX 


•H.DIRWE 


M3B HI 


3880 








LDY 


•L.DIRWE 


MS8 LO 


3883 








JQR 


FLIPIT 


DISPLAY 


3890 








LDA 


DAUX2 


SECTOR MSB 


3893 








JSR 


DOONE 


DISP 1 DIBIT 


3900 








LDA 


DAUXl 


SECTOR LSB 


3903 








JSR 


DOBOTH 


DISP 2 DIBS 


3910 








LDX 


•H.DIRWE2 


PT2 HI 


3913 








LDY 


•L.DIRWE2 


PT2 LO 


39 2 








JSR 


FLIPIT 


DISPLAY 


3923 








JMP 


COMMEX 


EXIT W/ERROR 


3930 


WFINE 




JSR 


RESDSK 


RESTORE DSK IOCB 


3933 








LDX 


• H, DIRENT 


DIRECTORY DONF MSB 


3940 








LDY 


•L, DIRENT 


AND LO 


3943 








JSR 


FLIPIT 


WRITE IT 


3930 
3933 
3960 


1 












i » 


NOW 


RETRACE 


EACH SECTOR AND 


■ 


3963 


I « 


UPDATE 


THE BIT MAP TO FULLY 


» 


3970 


: 1 


RECOVER 


THE 


FILE. .DO NOT FOR- 


1 


3973 


I ■ 


OET 


TO 


DECREMENT THE • OF SEC 


t 


3980 


; ■ 


TORS AVAILABLE FOR EACH SEC- 


» 


3933 
3990 
3993 


l » 


TOR 


THAT IS 


ALLOCATED. . . 


» 


1 












4000 








LDX 


•H.REALO 


I REALOCATE MSB 


4003 








LDY 


•L.REALO 


HI/LO 


40 10 








JSR 


FLIPIT 


DISPLAY 


4013 








LDA 


STSECL 


LO SEC 


4020 








STA 


DAUXl 


1 STUFF IT 


4023 








LDA 


STSECH 


1 HI SEC 


4030 








STA 


DAUX2 


STUFF IT 


4033 


RREC 




JSR 


DSKVEC 


> BET A SECT 


4040 








BPL 


RBO 


1 JMP BOOD RD 


4043 








LDX 


•H.FIRDE 


1 MSB HI 


4030 








LDY 


•L.FIRDE 


1 MSB LO 


4033 








JSR 


FLIPIT 


1 DISPLAY 


4060 








JSR 


CLRNAM 


1 CLEAR NAME 


4063 








JMP 


RDERR 


1 BO READ ER 


4070 


RBO 




JSR 


FINDIT 


1 FIND VTOC BYTE 


4073 








JSR 


WEIRD 


I BET NXT SEC 


4080 








LDA 


CASBUF+126 


1 BET LO PTR 


4083 








ORA 


TOPSEC 


I OR WITH HI 


4090 








BEQ 


RECDON 


1 IF WE FINEETO 


4093 








JSR 


SETUP 


1 ELSE SET NXT READ 


4100 








JMP 


RREC 


I AND DO IT 


4 103 
41 10 
41 13 


1 












1 • 


RECOVER 


FILE CLEAN UP CODE. • 




4120 


I # 


SAVE NEW VTOC. CLEAR FLAB3. • 




4123 


l ■ 


PUT 


UP 


SUCCESS MSB AND RET. • 




4130 


I * 


TO BASIC. FILE IS RECOVERED.* 




4133 
4140 
4143 


1 • 


(PLEASE 


LET 


IT BE RECOVERED)* 




, 












4130 


RECDC 




LDX 


•H, VTOC 


1 BUF PTR H 


4 133 








LDY 


•L.VTOC 


I BUF PTR L 


4160 








8TX 


DBUFHI 


> STUFF IT 


4163 








STY 


DBUFLO 


1 STUFF IT 


4170 








LDX 


• *6B 


I SECTOR 360 


4173 








LDY 


• *0I 


I - *0168 


4180 








9TX 


DAUXl 


1 STUFF 


4183 








STY 


DAUX2 


1 STUFF 


4 190 








LDA 


• • W 


1 WRITE COM 


4 193 








STA 


DCOMM 


1 STUFF IT 


4200 








JSR 


DSKVEC 


1 WRITE IT 


4203 








BPL 


VOUTOK 


1 JMP BOOD W 


4210 








LDX 


•H. VBAD 


OET MSB 


4213 








LDY 


•L, VBAD 


ADDRESS 


4220 








JSR 


FLIPIT 


DISPLAY IT 


4223 








JSR 


RESDSK 


1 RESTORE DSK IOCB 


4230 








JMP 


COMMEX 


1 EXIT W/ERR 


4233 


VOUTC 




JSR 


RESDSK 


1 RESTORE IOCB 


4240 








OSR 


DISNAM 


DI3P NAME 


4243 








LDX 


•H.SUCCES 


3UCCE3 MSB 


4230 








LDY 


•L.SUCCES 


ADDRESS 


4233 








JSR 


FLIPIT 


DISPLAY IT 


4260 








J BR 


CLRNAM 


CLEAR NAME 


4263 








STX 


RECOVR 


CLEAR RECOVER FLAB 


4270 








JMP 


EXIT2+1 


1 RETURN TO BASIC ! 


4273 
4280 
4283 


1 












1 « 


SUBROUTINE RESDSK: RESTORES 


» 


4290 


! « 


THE 


DISK IOCB TO A READ CON- 


■ 


4293 


1 » 


DITION 


AND POINTS THE BUFFER 


I 


4300 
4303 
4310 


J « 


TO CA8BUF. 




* 


, 












4313 


RE3DS 




LDX 


•H.CASBUF 


BUF HI 


4320 








LDY 


•L.CASBUF 


I BUF LO 
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4323 

4330 
4333 
4340 
4343 
4330 
4333 
4360 
4363 
4370 
4373 
4380 
4383 
4390 
4393 
4400 
4403 
4410 
44 13 
4420 
4423 
4430 
4453 
4440 
4443 
4430 
4433 
4460 
4443 
4470 
4473 
44B0 
4483 
4490 
4493 
4300 
4303 
4310 
4313 
4320 
4323 
4330 
4333 
4340 
4343 
4330 
4333 
4360 
4363 
4370 
4373 
43S0 
4383 
4390 
4393 
4600 
4603 
4610 
4613 
4620 
4623 
4630 
4633 
4640 
4643 
4630 
4633 
4660 
4663 
0034 



BTX DBUFHI 

3TY DBUFLO 

LDX »"R 

8TX DCOMH 
RTS 



STUFF 
STUFF 
READ COM 
STUFF 
RETURN 



I* SUBROUTINE FINDIT: FINDS THE" 
!• APPROPRIATE BYTE OF THE VTOC« 
l« AND THE PROPER BIT OF THAT » 
l» BYTE WHICH REPRESENTS THE » 
!« CURRENT SECTOR OF OUR FILE. • 
!• THE SECTOR MAP IS UPDATED TO« 
!• ALLOCATE THE CURRENT SECTOR • 
l» AS BEINB USED. IN ADDITION, » 
1» THE NUMBER OF FREE SECTORS • 
■• AVAILABLE IS DECREMENTED 80 • 
l» THAT DOS DOESNT BO BANNANAS.* 



*0 
• 3 

DAUX2 
DAUX1 



LDA 

LDY 

L3R 

ROR 

ROR A 

DEY 

BNE FIND0 

LDY »3 

ROR A 

DEY 

BNE FIND1 

TAY 

LDA «0 

SEC 

ROR A 

DEY 

BPL FIND2 

PHA 

LDA DAUX1 

ADC **0A 

TAY 

PLA 

EOR VTOC.Y 

STA VTOC.Y 

DEC VT0O3 

LDA VT0O3 

CMP »«FF 

BNE NOHI 

DEC VTOC+4 

RTS 



CLEAR OUT A 

PREP FOR /8 

DIVIDE BY SHIFTINB 

SAME FOR LO 

AND ALSO A RES 

DEC CNTR 

DO 3 SHIFTS TO DIV 

DETERMINE SHFT CNT 

ROTATE BIT IN A RES 

DEC CNT 

DO 3 TIMES 

USE AS CNTR IN Y 

CLEAR A 

SET OUR BIT IN CARRY 

AND SHIFT TO PROPER 

DEC 3HFT CNT 

SHFT TIL NEBATIVE 

SAVE THE PROPER BIT 

OET VTOC BYTE NUMBER 

ADD VTOC OFFSET 

INDEX OF VTOC BYTE 

PULL THE MASK 

CLEAR SECTOR BIT 

PUT BACK IN VTOC 

DEC AVAILABLE SECTORS 

SET VAL 

DID WE FLIP? 

NO. RETURN 

ELSE DEC HI 

AND RETURN 



RECOVER FILE MESSAGES FOLLOW* 



PASS1 .BY TAB "PASSl - ' 

.BY "CHECK INS FILE CONDITION - CR NULL 

NODEL .BY ' IS NOT DELETED!! - CR BELL NULL 

NORECO .BY - , CANNOT BE RECOVERED!!' BELL CR NULL 

OK .BY 'FILE INTACT - CR TAB ' PA3S2 - • 

.BY "RECOVERING FILE - CR NULL 

DIRENT .BY 'DIRECTORY ENTRY DONE - CR NULL 

REALO .BY - REALL0CATIN8 DELETED SECTORS - CR NULL 

SUCCE3 .BY ' HAS BEEN RECOVERED' - BELL CR NULL 

VBAD .BY 'ERROR IN VTOC WRITE!! - BELL CR NULL 

VRBAD .BY 'ERROR IN VTOC READ !!' BELL CR NULL 

FIRDE .BY "FILE READ ERROR 1 " BELL CR NULL 

DIRDE .BY 'DIRECTORY READ ERROR 1 ' BELL CR NULL 

DIRHE -BY 'DIRECTORY WRITE ERROR' - ESC RAR 

DIRWE2 .BY BELL CR NULL 

. EN 



LABEL FILE: 







AROUND -1E0F 


AS2BIN 


-1E63 


ASTART -1CFC 


BELL -00FD 


CHQLNK -1FFC 


CHKDOS 


-231B 


CHRCNT -1DB1 


CIOVEC 


-E436 


CKD03 -1EEA 


CKl OCK 


-1EDE 


CKSTA -1ECA 


CKU8ED 


-1ED7 


CLOSE -000C 


CLRFAK 


-212F 


CLRNAM -1FCC 


CLRBPA 


-1FD0 


COMMEX -212A 


CONASC 


-1DBB 


CONVERT -1DF3 


CR -009B 


DAUX2 U030B 


DBUFHI 


-0303 


DCOMM "0302 


DELETE 


-22D3 


DERR -1D34 


DINUMH 


-2377 


DIRDE -2726 


DIRENT 


-2698 


DIRWE2 -2736 


DISMSG 


-1DG7 


DIBPFL -IF12 


DISPLY 


-1DDE 


DOASEC -20F2 


DOBOTH 


-IF. 98 


DOOM -24CD 


DOONE -232F 


DOREAD -20CC 


DOREC -23FC 


D0B1 -1EF9 


DOS 1 PL 


-2323 


DRIVGN -20D4 


DSKVEC 


-E433 


DSPHEX -1D19 


ENDMSO 


-1099 


ERRFLG -1D7E 


ERRTRP 


-2048 


EUSE -2499 


EXIT - 


D37 


FAKEONE -231C 


FAKFL8 


-232E 


FILEN -1FEA 


FILMSS 


-228B 


FILOOP -1E9C 


FILSTA 


-1FEC 


FIMS82 -22BF 


FIND0 -23EE 


FIND2 -2602 


FINDIT 


-23EA 


FIRDE -2713 


FISTAR 


-1EBF 


FLIPIT -219F 


8ETCHR 


-0007 


8ETLEN -1EB3 


8ETM0R 


-21D6 


GETREC -0003 


8ET3TA 


-1EAD 


SOON -20DF 


HEADER 


-ID9A 


HIHEX -IDF2 


HX2BIN 


-IE47 


ICAX2 -034B 


ICBAH ■ 


■0343 


ICBLH -0349 


ICBLL -0348 


ICDNUM -0341 


ICHID -0340 


ICPTL -0346 


ICSTA 


■0343 


I0C84 -0040 


IOCBST 


•0340 


,7P0NT -1E83 


OUSHEX 


-1E2B 



A3BIN1 


-1E6E 


CASBUF 


-03FD 


CHN8BY 


-1E31 


CKDOOM 


-1DC3 


CK8ECN 


-24DD 


Cl.ENUP 


-1FD7 


CLRI0C4 -233F 


CL8 -007D 


CONTIN 


-22FE 


DAUX1 -030A 


DBUFLO 


-0304 


DEL MSB 


-2203 


DINUML 


-2376 


DIRWE -273E 


DISNAM 


-21D4 


DMPA3C 


-1D41 


DOEXT -1F2C 


DOPREF 


-230F 


DORETN 


-20C2 


D03MSK 


-0002 


DSPEC ■ 


■2336 


ENTLNK 


-1FF4 


ESC -001B 


EXIT2 -1D3F 


FILCNT 


-22FF 


FILNUM 


-1D84 


FIM8Q1 


-22A3 


FINDl -23FA 


FINUMB 


-1FF3 


FIU3ED 


-248F 


GETIT -1D4C 


8ETNAM 


-1EA0 


BOCIOV 


-233B 


HIADR -1E17 


ICAX1 -034A 


ICBAL -0344 


ICCOM -0342 


ICPTH -0347 


INDEX -1E38 


ITSU3D 


-20A0 


LASM3B 


-2123 



LINKER 


-2214 


LOCKED 


-0020 


MAKBIN 


-1E6F 


NAMBUF 


-1FDD 


NOCON 


-2029 


NOERR 


-204B 


N0H1BY 


-1F9E 


NORECO 


-2638 


NXT3EC 


-1FA9 


ONE BYE 


-1DE7 


OPEN - 


8003 


OUTFIL 


-1EFE 


PA3S2 


-24F3 


PSTATU 


-1F70 


PUTLEN 


-1F38 


PUT3EC 


-IF04 


RDERR 


"22DD 


REALO 


-26AE 


REDIR 


-1E8F 


RE3XY 


■1E1F 


3AVEX 


-1D7F 


3ECDI3 


-2301 


3ET4 - 


2364 


SETY - 


20BD 


3PACE1 


-1DB2 


START 


-1CFC 


3T0FIL 


-243E 


3TSECH 


-2374 


SUBPER 


-1DDB 


TEMP - 


IE64 


TEI1PX 


-22FC 


TOPSEC 


-1D83 


VBAD - 


26E3 


VOOON 


-2479 


vroc * 


2378 


WFINE 


-2336 


XCNT - 


22F8 


Z/0000 


, 2739, B33D 



LOADIT -204F 
LOHEX -1DFI 
MESAGE -1D06 
NAME -21EB 
NOOEL -2644 
NOFLIP -1FBC 
NOMSB -226F 
NOTASC -1E34 
ODAMSB -2236 
ONMOER -2114 
0PNIOC4 -234B 
PABE0 -00CD 
PERIOD -002E 
PUTCAR -000B 
PUll. TR -1F72 
PUTSTA -1F46 
RDM3G -2237 
RECDC1N -2399 
RE3BUF -2431 
RBO -2583 
3AVEY -1D80 
3ECMAX -IFF2 
SETUP -21C7 
SORRY -2 167 
SPACE?. -1DAF 
STASEC -1FEB 
SIOPMS -2286 
3TSECL -2373 
SUCCES -26CC 
TEMPI -22FA 
TEMPY -22FD 
TRA3EC -2020 
VERIFY -2439 
VOUTOK u>23C4 
WEDONE -2140 
WFLAG -1D82 
YCNT -22F9 



L OADR 


-1E16 


LT9 -1DC0 


MSB -1D83 


NEWLNK 


-2002 


NOENT 


-2090 


NOHI - 


2621 


NOREC 


-249C 


NULL - 


0000 


OK -2672 


OOPS - 


210A 


OUT -1DDD 


PA331 


-2622 


PREFIX 


-1E26 


PUTCHR 


-2339 


PUTREC 


-0009 


RAR -001F 


READ » 


0004 


RECOVR 


-2373 


RESD3K 


-25DA 


RREC - 


2373 


3AVXY 


-1E18 


3FCM3B 


-21EF 


SETUP? 


-21CD 


3P -0020 


SPLIT 


-0010 


STCHK 


-2078 


3T03TA 


-2327 


3TUFIT 


-1E57 


TAB -0S)7F 


TEMP2 


-22FB 


T088LE 


-1FF1 


UPDATE 


-1E06 


VBO -246E 


VRBAD 


-26FB 


WEIRD 


-2010 


WRITE 


-000S 



Listing 5. 



19 REM XXXXXXXXXXXXMXXXXXXXXXXXXXXXX 

15 REN * DISK TOOL BASIC PROGRAM * 
28 REM * BY TONY MESSINA CCJ 1982* 
25 REM KMXXXMXXXXXXXMXXXXXXXXXXXXXXX 

30 POKE 82,0: REM **LFT MAR TO *** 
35 REM 

40 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

45 REM * VARIABLE/CONSTANT/STRINGS * 
50 REM * INITIALIZATION FOLLOWS * 

55 REH XXXXXXXXXXXXXXXXXXXXXXXKXXKXX 



60 REM * 



X- 

# 

X 

* 

X 



CONSTANTS FOLLOW 
65 REM * THE FOLLOWING CONSTANTS 
79 REM * ARE USED TO MAKE THE DSK- 
75 REM * TOOL LISTING EASIER TO 
88 REH * READ. IT ALSO PROVIDES A 
85 REM * CENTRAL LOCATION FOR ISO- 
90 REM * LATING ADDRESS POINTERS IN* 
95 REM * ORDER TO MAKE MODIFICATION* 
100 REM * OF THE PROGRAM EASIER. * 
105 REM * ENTRIES ARE ALPHABETICAL. * 
110 REM * SEE THE CONSTANTS DE5CRIP-* 
115 REM * TION SECTION OF THE DOCU- * 
120 REM * MENTATION FOR DEFINITIONS.* 

125 REM XXKXKKXXXXXKXXKKKXXKXKXKXKXKK 

130 REM 

135 BACKGND=710 : BLACK=0 ! B0RDER=712 : BUF 

HI=773 : BUFL0=772 : BUFPTR=126 : CASBUF=102 

1 : CASPTR=CASBUF+BUFPTR 

140 CHAR=709 : CHHGBY=7729 : CKLIM=475 : CKR 

0LM=590 : CKR0LP=550 : CLI0C4-9823 : CHUNKS 

958 : DAUX1=778 : DAUX2=779 

145 DBYHI=777 : DBYL0=776 : DC0MH=770 : DECH 

EK=1360 : DtlNIT=769 : ENTLNK=8180 : ERRFLG=7 

550 : ERTRAP=625 : FILNUM=7556 

150 FINUMB=8179 : GREEN=214 : GSEC=82 : HEHD 

EC=1270 : HILO-515 : MESAGE=7430 : NMLNK=819 

4 : PCHANGE=1885 : PDIR=1420 

155 PHELP-1198 : PLUSMIH=865 : PN0D=1645 : P 

PRINT=153O:PRECOUER=1930:PROCINP=745:P 

SEC-87 : P5ET=2039 : PTRACE=1795 : PWRITE=95 



160 REC0VR=9877 : RED=64 : REDIR-7823 : SCRO 

LL=668 : SETDSK=400 : SETSCRN=785 : START=74 

2© : T0PSEC=7555 : TRASEC-8224 

165 TURQ=186 : WFLAG=7554 : MHITE=10 : YELLO 

M=26 

178 REM 

175 REM KKKXXKKXKXXKXXKXXXXXKKXKXXXXX 

180 REM * VARIABLES FOLLOW * 



PAGE 92 



THE A.N.A.L.O.G. COMPENDIUM 



VOL. 1 



185 REM * THE FOLLOWING ARE VARIA- * 

190 REM * BLE5 SET TO THEIR DEFAULT * 

195 REM * VALUES INDICATED DURING * 

ZOO REM * PROGRAM INITIALIZATION . SEE* 

205 REM * VARIABLE DESCRIPTION SEC- * 

210 REM * TION OF DOCUMENTATION FOR # 

215 REM * LIST OF ALL VARIABLES AND * 

220 REM * THEIR PURPOSE. * 

225 REM iHHHHHHHHHHHHHHHHHHHHHHHHaBHHI 

230 REM 

235 DRIVE-1 : HELP=1 : SECHI=0 : SECL0W=1 : SE 

CNUM=1 

240 REM 

245 REM iBHHHHHHHHHHHaHHHHHHHHHHHHHHI 



X 

K 

* 

.* 



258 REM * STRING INIT FOLLOMS 

255 REM * SEE STRING DESCRIPTION 

260 REM * SECTION OF DOCUMENTATION 

265 REM * FOR DESCRIPTION AND USES 

278 REM * OF THE FOLLOWING STRINGS. 

275 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

280 REM 

285 DIM ASC4B),ANSC1],HEXREPSC41 ,HEXTA 

BSC161 

298 HEXTABS="0123456789ABCDEF" 

295 REM 

388 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

385 REN * VARIABLE/C8NSTAHT/STRING * 

318 REM * INITIALIZATION END * 

315 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

320 REM 

325 TRAP ERTRAP 

338 GOSUB SETDSK 

335 X=USRCCLI0C4) :REH CLR IOCB 4 

348 GOTO PHELP 

345 REM 

358 REM XXKKKKKXXXKKKKKXKKKKXKKXXKXXX 

355 REM *C0NN0N PROGRAM SUBROUTINES * 
360 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
365 REM 
376 REM XX XXXXXXX XXXXXXXXXXXXXXXXXXX 

375 REM * HMEEOB * 

388 REM * SET UP DISK VECTOR TABLE * 

385 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

390 REM 

395 REM 

408 POKE DUNIT,DRIVE:REM ** DRIVE tt 

405 POKE DCOMM,GSEC:REM ** FOR READ 

418 POKE DAUX1,SECL0M 

415 POKE DAUX2.SECHI 

428 POKE BUFL0,253:REM ** LOW BUF ADR 

CSFD)** 

425 POKE BUFHI,3:REM **HI BUF ADR C$83 

) #* 

438 POKE DBYL0,127:REM ** GET 128 BYTE 

S fl SECTORJ ** 

435 POKE DBYHI,8:REM ** NO HI ** 

448 RETURN 

445 REM 

450 REM XX XXXXXX XXXXXXXXXXXXXXXXXXXXX 

455 REM * H3SEH * 

468 REM * CK SECNUM LIMITS <1 >728 * 

465 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

478 REM 

475 SECNUN=VALCASl :I F SECNUM<1 OR SECN 

um>72J i them ? " g QJEBujJBEEHD' aBB 

CHMHBBEJH" ! pnp :goto procikp 

480 RETURN 
485 REM 

498 REM XX XXXXX XXXXXXXXXXXXXXXXXXXXX 
495 REM * GJHJB X 

580 REM *BREAK SECNUM T6 HI/LO FORMX 
505 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX 
510 REM 

515 SECHI=INTCSECNUN/2561 :SECLOW=INTCS 
ECNUN-CSECHI*256)3 : RETURN 
520 REM 

525 REM XK XXKKKX XKKXKXKKXKKXKKKXKXX 

526 REM * 333JHJB * 
538 REM * R8LL SECTOR HUM TO 1 IF * 
535 REM * >720 * 
540 REM KKKXXKKXKXKKXKXKXXKKXXXXXKX 
545 REM 

550 IF SECNUM>720 THEN SECNUM=1 

555 RETURN 

560 REM 

565 REM KK KXKKKKK XXXKKXXXKXXXKKXXKX 

566 rem * aaaauB * 



570 REM * ROLL SECTOR NUM TO 720 * 

575 REM * < 1 * 

580 REM xxxxxxxxxxxxxxxxxxxxxxxxxxx 

585 REM 

590 IF SECNUM<1 THEN SECNUM=720 

595 RETURN 

686 REM 

685 REM xx xxxxxxx xxxxxxxxxxxxxxxxxx 

686 REM * aiEEQH * 
618 REM * GO HERE ON ERROR * 
615 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 
620 REM 

625 ? " HjJMHijEHEIHIHir ' : pokf char.bla 

CK:POKE BACKGND, GREEN: TRAP ERTRAP:GOTO 

PROCINP 
638 REM 

635 REM XX XXXXXXX XXXXXXXXXXXXXXXXXX 

636 REM * H33JHB * 
648 REM * SCROLL 5 LINES * 
645 REM * FROM THE BOTTOM OF SCRN * 
650 REN XXXXXXXXXXXXXXXXXXXXXXXXXXX 
655 REM 

668 POSITION 0,17:? "SHE" : POSITION fl 
,17: RETURN 
665 REM 

670 REM XX XXXXXXXX XXXXXXXXXXXXXXXXX 

671 REM * HJJH33I * 
675 REM * SET SCREEN TO * 
688 REM * DEFAULT COLORS OF GREEN * 
685 REM * BACKGND, WHITE BORD, BLOCK* 
690 REM * LETTERS. * 
695 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 
786 REN 

785 P8KE BORDER, WHITE :PDKE CHAR, BLACK: 

P6KE BACKGND, GREEN:RETURN 

718 REN 

715 REN XX XXXXXX XXXXXXXXXXXXXXXXXXXX 

720 rem # raiiiisran * 

725 REM * MAIN COMMAND/INPUT PROC- * 
730 REN * ESSING PORTION FOLLOWS X 
735 REN XXXXXXXXXXXXXXXXXXXXXXXXXXXX 
748 REN 

~|= "; DRIVE:? 

'; :INPUT AS 
THEN HELP=1:G0T0 PHELP 
THEN GOSUB PPRINT:GOTO 



CURRENT DRIVE 
COMMAND OR SECTOR NUMBER 



745 ? 

>\ 

758 IF AS="H" 

755 IF AS="P' 

ROCINP 

768 IF ASr-T" 

765 HELP=8 

778 IF AS="+ 



THEN GOTO PTRACE 



OR AS="" THEN SECNUN=SEC 
NUN+1: GOSUB CKROLP:GOTO PLUSNIN 
775 IF AS CI, 11="-" THEN SECNUN=SECNUM- 
liGOSUB CKROLM:GOTO PLUSNIN 
780 IF AS= ,, W' THEN GRAPHICS 8: GOSUB PW 
RITE:GOTO PROCINP 

785 IF AS="C" THEN GRAPHICS O : GOSUB PC 
MANGE: GOTO PROCINP 
796 IF AS= M D" THEN GOTO PDIR 
795 IF AS="T" THEN GOTO PTRACE 
888 IF AS="N" THEN GRAPHICS 8: GOSUB SE 
TSCRN:GOTO PNOD 

885 IF AS="R" THEN GOTO PRECOVER 
810 IF AS="S" THEN GRAPHICS 0: GOSUB SE 
TSCRNIGOTO PSET 

815 IF ASC1,11="S" THEN GOSUB HEXDEC 
828 G8SUB CKLIN 
825 REM 

838 REN XK XXKKXKKX XKXKKKXKXKKKK -***** 
835 REM * fJTWTgnElJTB * 

848 REN * PROCESS THE C+l C-l OR * 
845 REN * NUMERIC INPUT. PRINT SEC-* 
858 REN * TOR DISPLAY & RTN TO 378 * 
855 REN XXXXXXXXXXXXXXXXXXXXXXXXXXXX 
868 REM 

865 GRAPHICS 8:G0SUB SETSCRN : GOSUB HIL 
0: GOSUB DECHEX 

878 POKE DAUX1,SECL0N:P0KE DAUX2,SECHI 
875 X=USRCSTART) :REM ** GO DO IT ** 
880 IF PEEKCERRFLGJ=138 THEN "» " BUHE 
".DRIVE;" (VIiI*«:MM:l4.1Jii:itULi " 

885 IF PEEK (ERRFLGi THEN ? " BEEHMIDEE 
KBHuDB"; SECNUM;" C$"; HEHREPS ; "T-'T POKE 

ERRFLG,8:G0T0 PROCINP 

886 IF SECNUM=360 T HEN ? "gH J HHIlIQIE 
SB360 ($816 8)"; :? "HiT^<4tgiitT ":PEEK( 
CASBUF1 f" 
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SECTOR = = , 
NEXT SEC") 



887 IF SECNUH=368 THEN ? PEEK CCASBUF+3 
)+PEEKCCA5BUF+4)*256:G0T0 PROCINP 
898 IF SECNUH<369 AND SECHUH>369 THEN 

";5ECNUH;" C$"; 
GOTO PROCINP 

"jSECNUH;" CS";HEXREP 
'j CPEEKCT0PSEC)*256)+P 



HEXREPSi")" 
895 

S;")>C 

EEKCCAS PTR) 

900 ? "5HOISaJ";PEEK(FILNUMJ 

995 GOTO PROCINP 

910 REH 

915 REH * ********* ****************** 

928 rem * aaaioH * 

925 REN * PROCESS CM) COMMAND TO ? * 

938 REM * SECTOR REQUESTED TO DISK.* 

935 REM * WRITE ONLY AFTER VERIFY..* 

948 REM **************************** 

945 REH 

958 POKE BACKGND, RED: POKE CHAR,WHITE:P 

OKE BORDER, WHITE 

955 X=USR(HESAGE) 

968 GOSUB SCROLL :GOSUB HILO'.GOSUB DECH 



EX 
965 



ISCURRENT DRIVE 15 ==? 
ISSURE ABOUT WRITE (V/N) 



'; DRIVE 
"; : INPUT 



* 



WRITE ABORTED** 



DISK 
IS WRITE PROTECTED! 



? "UtHH:i ;l.i:f.1<Hf Ui^raigH " ; SECNUHj 
" (S"; H EXREPS; "3" 
978 ? 
975 ? 
ANS 
988 IF AN$<>"V" A ND AN$<>"N" THEN ? 

3 3IE3M1HPEBQHM " : goto 1025 

985 IF ANS="N" THEN ? 

":GOTO 1825 

998 POKE DCOMM,PSEC:POKE UFLAG,1 

995 X=USR (START) 

1008 IF PEEK (ERRFLG) -138 THEM ? " I>1:H'J=< 

"jdriue," im]*-M:riiTra aji]:im,i" : goto io 

28 

1885 IF PEEK (ERRFLG) =144 THEN ? 

Epnam "jdrive;- 

Q":GOTO 1828 

1818 IF PEEK (ERRFLG) THEN ? "(HHIE - " 
;PEEKCERRFLGJJL" -Q" : GOTO 1828 

1015 ? ■'a^ffiIar';sECl4UM;"KEaila3■■ 

1828 POKE ERRFLG, 8:P0KE DCONH, GSEC : POK 

E HFLAG.8 

1825 POKE CHAR, BLACK: POKE BACKGND, GREE 

N 

1830 ANS="" 

1835 RETURN 

1848 REM 

1845 REM * ***JBt**** ****************** 

1858 REM * BHlECHai * 

1855 REH * PROCESS CO COMMAND TO * 

1868 REM * CHANGE BYTES OF SECTOR IN* 

1865 REM * CURRENT BUFFER * 

1870 REM **************************** 

1875 REM 

1880 REM *** CHANGE BYTES ROUTINE *** 

1885 POKE BACKGND, YELLOW: POKE CHAR,BLA 

CK:POKE BORDER, WHITE 

1898 X=USRCHESAGE) 

1695 GOSUB SCROLL 

1188 ? "HMOVE CURSOR TO BYTES, CHANGE, H 

IT RETURN" 

1185 INPUT AS 

lllj I IF ' A$='"' OR LENCAS) < 26 THEN ? " jfl 

BJQH MCI B'IMJJ:l*KTHiHI:i:i " : : GOTO 1135 

1115 POKE BACKGND. YELLOW 

1128 LINBUF=ADR(A$) 

1125 X=USR(CHNGBY,LINBUF) 

1138 ? 

anaiHE 

1135 INPUT A$ 

1148 POKE BACKGND, GREEN 

1145 RETURN 

1158 REM 

1155 REM ** ****** ******************** 

1160 REH * aMUH * 

1165 REH * PROCESS (H) COMMAND BY * 

1178 REH * DISPLAYING THE COMMANDS * 

1175 REH * AVAILABLE IN DISK-TOOL...* 

1188 REH **************************** 

1185 REM 

119 8 GRAPHICS 1 1 POKE BA CKGND, GREEN : ? tt 

jjjJ'Hg ! SF— — — — u " ■ ? a*;- Fran q 

1195 1 1*6; 



DATA CHANGED — HIT RETURN TO CO 




1288 ? tt6;"Q=READ NEXT SECTOR":? tt6;"B 
-READ PREVIOUS SEC":? tt6;"S=CHANGE SEC 

BYTES" 
1285 ? tt6;"E=DIRECT0RY LIST":? tt6;"B=H 
ELP" 

1218 ? tt6;"|T=M0DIFY LINKS":? tt6j"[a=PRI 
NT SCREEN" 

1215 ? tt6;"|3=REC0VER A FILE":? tt6;"B=5 
ET DRIVE tt" 

1228 ? tt6;"H=TRACE FILE CHAIN":? tt6;"E 
=MRITE A SECTOR" 
1225 ? "ft": GOTO PROCINP 
1238 REM 

1235 REM MK MXMMMMX MMMMMXMMMXMXXXMXMMM 
1248 REM * HSEHBH * 

1245 REM * HEX-DEC CONVERSION SUBRTN* 
1258 REM * HEX INPUT FROM AS IN THE * 
1255 REM * FORM SXXXX . OUTPUT DEC AS* 
1260 REH XXXXXXXKXXXKXXXXXXXXXXXXXXXX 
1265 REH 
1278 N=8 

1275 FOR 1=2 TO LENCAS) 
1288 IF A$CI,I)<"8" THEN GOTO 1318 
1285 IF ASCI,I)<="9" THEN N=N*16+VALCA 
SCI, I)) :GOTO 1388 

1298 IF ASCI,IX"A" OR ASCI,I)>"F" THE 
N 1318 

1295 N=N*16+A5C CAS CI , I) ) -A5C C"A") +18 
1368 NEXT I 
1385 AS= STRSCN) : RETURN 

i3ie ? " ICEEIMiMIliafcE EHiHEB" ■ pop :go 

TO PROCINP 

1315 REM 

1328 REH XX XXXXXXX XXXXXXXXXXXXXXXXXXX 

1325 REM * Qyj HIBBH * 

1338 REM * DECf-HEX CONVERSION SUBRTN* 

1335 REH * HI/LO OF NUHBER IN SECLOW* 

1348 REH * A SECHI. HEX OUTPUT IN * 

1345 REH * HEXREPS * 

1358 REH XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1355 REH 

1368 TSECH=SECHI : SECHI=INT CSECHI/16) +1 

: HEXREPS CI, 1)=HEXTAB$ (SECHI, SECHI) 

1365 SECHI= (TSECH- C5ECHI-1)*16) +1 : HEXR 

EPS C2 , 2) =HEXTABS CSECHI , SECHI) : SECHI=TS 

ECH 

1378 T5ECL=SECL0W: SECLOW=INT CSECLOW/16 

) +1 : HEXREPS (3,3) =HEXTABS (SECLOW, SECLOW 

1375 SECLOH= CTSECL- CSECL0W~1)*16) +1 : HE 

XREPS (4 , 4) =HEXTABS (SECLOW, SECLOW) : SECL 

OW=TSECL: RETURN 

1388 REH 

1385 REH XX XXXXX XXXXXXXXXXXXXXXXXXXXX 

1398 REH * 133331 * 

1395 REH * PROCESS CD) COHHAND TO * 

1408 REH * DISPLAY FORHATTED DISK * 

1405 REH * DIRECTORY/FILE INFO.. * 

1410 REH XXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1415 REH 

1428 POKE DAUX2,l:P0KE DAUX1, 185 : REH * 

* SET SECTOR 361 FOR READ 

1425 SECNUH=361 

1438 GRAPHICS 8: GOSUB SETS CRN 

* 4 as_? •:$&& gmascaiiai sesj iram 

iii 



♦ D 



1448 X=USRCREDIR) 
1445 5ECHUM=SECNUH+1 
A* 58 ? _v ? . " HHfl RETURN 

mmiMJR"; 

1455 INPUT ANS 

1468 IF ANS="+" AND SECNUH<365 THEN 14 

35 

1465 ANS="":POKE FINUMB,8 

1478 ? " »[T 

1475 INPUT AS 

1488 IF AS="" THEN GOTO 1498 

1485 IF ASC1,1)="W" OR A SC1,1)="C" THE 

n ? " ► Hsaaaai aEgaigMga3aoffljaa , ':G0T 

1478 

1498 GOTO PROCINP+5 

1495 REM 

1588 REH ** ******** ****************** 

1505 rem * aasHsn * 

1518 REM * PROCESS CP) COMMAND TO ? * 
1515 REH * THE SCREEN TO PRINTER.. * 
1528 REH **************************** 
1525 REH 



COMMAND OR SECTOR NUMBER 
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AJ38.IF (HEL P) THEN 

IM&El>2Lft4tl!H3" : RETURN 

1535 TRAP 1665iLPRINT :LPRINT 



PRINTING SCREEN! ! ! 



IMPROPER SCREE 



" :POKE B 



PRINTER DOESN'T RESPOND! >.** 



1540 ? "» 

ACKGND,TURQ 

1545 5CAND=PEEK(88)+PEEK(89)*256 

1550 REM **PRINT SCREEN TO PRINTER ** 

1555 FOR X=l TO 19 

1560 ARPT=1 

1565 FOR Y=5CAND TO 5CAND+39 

1570 A$(ARPT,ARPT)=CKRS((ASC(" "J+PEEK 

(Y))) :TEMP=flSC(AS(ARPT,ARPT)) 

1575 IF TEMP>128 THEN TEMP=TEMP~128: AS 

(ARPT , ARPT) =CHR$ (TEMP) 

1580 IF AS(ARPT.ARPT)<" " OR AS (ARPT, fl 

RPT)>"Z" THEN AS(ARPT,ARPT)="." 

1585 ARPT=ARPT+1:NEXT Y 

1550 IF A$C20,21)="DR" THEN GOTO 1608 

1595 LPRINT AS :SCAHD=5CAND+40 :NEKT K 

1680 POKE BACKGND, GREEN: TRAP ERTRAP:A$ 

="": GOSUB SETD5K: RETURN 

1605 ? 

GOTO 1680" 

1610 REM 

1615 REM JHt jHjjWHH BBBHHBHHHHHtJBBBBBBBHt 

1620 REM * EGHEH * 

1625 REM * PROCESS CM3 COMMAND TO * 

1630 REM * MODIFY LINKS OF A FILE.. * 

1635 REM MMXMMMMMXHMKKMMXKKXKXMMMXMMM 

1640 REM 

1645 ? "« 

i IHPUT~A~S 

1650 IF AS="" THEN GOTO PROCINP 

1655 IF AS(1,1J= ,, S" THEN GOSUB HEXDEC 

1660 GOSUB CKLIM 

1665 GOSUB HILO: GOSUB SETD5K: GOSUB DEC 

HEX 

1678 X=U3R(ENTLNK) 

1675 IF PEEKCERRFLGJ THEN GOTO 885 

AJLgQ _ ? . J? "l*iIMl£*J !, ;PEEK(FILNUM);":QI3 

UHaS4JjLEH "; (PEEK(T0PSEC)*256)+PEEK(C 

ASPTR) 

1685 ? :? 

"; : INPUT AS 

1690 IF AS="" THEN FIL-PEEK (FILHUM) :G0 

TO 1705 

1695 IF A$(1,1)="S" THEN GOSUB HEXDEC 

1700 FIL=VAL(AS) 

1785 POK E (FILNUM ),FIL:? :? "EQHaCEE 

WBMIMiSMSSIMMM" ; : input as 

1710 IF AS="" THEN GOTO PROCINP 
1715 IF ASC1,1J="S" THEN GOSUB HEXDEC 
1720 IF UAL (AS) =0 THEN SECNUM=0 :GOTO 1 
730 

1725 GOSUB CKLIM 

1730 GOSUB HILO:POKE (TOPSEC) , SECHI :P0 
KE CASPTR, SECLOW 

1735 X=USR(NMLNK) ___ 

1*1 



.MODIFY SECTOR LINKS 
SECTOR TO ;MODIFY (HE* np OFhi 



ENTER NEW FILE (DEC OR HEX) 



WRITE TO DISK IF CHANGES 



1748 ? ■■ »[MEEHEI ECEBJHa " j? :? "►FIT 
HUE "; peek (FILHUM);" GEPaHIMia3 

; (PEEK (T0PSEC)*256) +PEEK (CASPTR) 

1745 SECNUM=PEEK (DAUX1) +PEEK CDAUX2)*25 

6 

1750 ? :? 

3333390":? :GOTo PROCINP 

1755 REM 

1760 REM MM XMKKXXX MXXXMKKMMMMKMMMXMMM 

1765 rem * \snnsaa * 

1770 REM * PROCESS (T) COMMAND TO * 

1775 REM * TRACE THE SECTORS OF A * 

1780 REM * FILE FOR FILE INTEGRITY * 

1785 REM MXXXXXXKXXMXSMXMXXXXXXXHKMMX 

1798 REM 

1795 IF (HELP) THEN GRAPHICS 0:HELP=O: 

GOSUB SETSCRN 

1800 ? "U NPUT FILE NUMBER (HEX OR DEC 

)":? ">T0 Q3331 OR B TO ABORT"; : INPUT 

AS 

1805 IF AS(1,1)="X" THEN GOTO PROCINP 

1810 if as(1,1)="s" then gosub hexdec 
1815 fin=val (as) : stsec=int (fin/8) +361 : 
if stsec<361 o r stsec>368 then ? " h333 
EOM3IIIIIB333 ":goto procinp 
1828 relfi=fin-(int(fin/8)*8) 

1825 IDX=(R£LFI*1 6)+CASBUF 

1830 ? "«> B3aQTJDffiEEH3" 



SECTOR TRACE (CONT) 



1835 X=USR(TRASEC,STSEC,IDX,FIN) 

1840 IF PEEK(ERRFLG) THEN POKE ERRFLG, 

0:POKE FINUMB,0:? :GOTO PROCINP 

1845 3ECL0H=PEEK (CASPTR) :SECHI=PEEK (TO 

PSEC) 

1850 IF NOT PEEK(CNTIN) THEN POKE (FI 

NUMB) , : GOTO PROCINP 

1855 ? :? "B TO CONTIN QRINT SCRN <RET 

> TO STOP": :INPUT ANS 

1868 IF ANS="" THEN POKE CNTIN,0:POKE 

FINUMB,8:G0T0 PROCINP 

1865 IF ANS="P" THEN GOSUB PPRINT:GOTO 

1855 
1870 IF ANS<>"+" THEN POKE CHTIN,0:POK 
E FINUMB,0:GQT O ERTRAP 
1875 ? "*► 
1880 X=USR(TRASEC) 
1885 GOTO 1840 
1890 REM 

1895 REM XX XXXXXXXKK XXXXXXXXXXXXXXKW f 
1900 REM * laMMdMiB * 

1905 REM WPROCESS (R) COMMAND WHICH * 
1910 REM *WILL RECOVER A FILE WHICH * 
1915 REM *HAS BEEN DELETED * 

1920 REM KMKXXXXXXXMXMXXXKXXXXXMMKMXX 
1925 REM 

1930 IF (HELP) THEN GRAPHICS 0:HELP=8: 
GOSUB SETSCRN 
1535 ? "U NPUT FI LE NUMBER (HEX OR DEC 

)■■:? ••►to EBHJBH3 or E3 to abort-; :inpu 

T AS 

1940 IF ftS(l,l)="X" THEN GOTO PROCINP 
1945 IF A$(1,1)="S" THEN GOSUB HEXDEC 
1950 FIN=UAL (AS) : STSEC=INT (FIN/8) +361 : 
IF STSEC<361 O R ST5EC>368 THEN ? " HIEE 
■HOEDCini3a3" : GOTO PROCINP 
1955 RELFI=FIN-(INT(FIN/8)*8) 
I960 IPX- (RELFI*1 6) +CASBUF 

1965 ? ■■*> aiaasHMHHii" 

1570 POKE REC0VR,1 

1575 X=USR(TRASEC,STSEC,IDX,FIN) 

1580 IF PEEK (ERRFLG) THEN POKE ERRFLG, 

0:POKE REC0VR,8:? 

1585 POKE FINUMB,0:GOTO PROCINP 

1550 REM 

1995 REM XX MXXXX XXXXXMXXXXXXXXXXXKXXX 

2800 REM * SHMB * 

2805 REM *PR0CES5 (S) COMMAND WHICH * 

2O10 REM WALLOWS USER TO CHANGE THE * 

2015 REM ^WORKING DISK DRIVE NUMBER * 

2020 REM XXMXXXXXXXXXKXXXXXXXXXXXKKKX 

2825 REM 

2830 ? *■► M*M>i:u»j=a:nnTiraa" 

2035 ? :? "T anaalaMflaliaEB =■•; drive: 
t 



INPUT NEW DRIVE (1-4) 



"; :INPU 



2040 ? "I 

T AS 

2045 IF AS="" THEN GOTO PROCINP 

2850 X=VAL(A$) :IF X<1 OR X>4 THEN ? " ► 

HIBEDOBMfcllgMIDCini aHg' : goto procinp 

2855 DRIVE=X:GOSUB SETDSK:? :GOTO PR0C 
IMP 



CHECKSUM DATA 
(See pgs. 7-10) 



10 DA^A 532,703,450,549,210,278,538,17 

9,914 555,376,887,737,641,658,8191 

85 DATA 855,191,55,887,148,236,48,368, 

785,83,25,552,556,156,452,5833 

168 DATA 642,799,95,884,557,84,166,76, 

445,181,335,152,484,791,85,5616 

235 DATA 51,88,558,647,878,55,861,9,56 

7 , 1O0 , 90 , 792 , 188 , 543 , 23 , 5486 

310 DATA 549,551,84,322,598,212,91,95, 

797,540,880,101,564,576,704,6584 

385 DATA 572,185,118,698,738,88,828,27 

9,753,491,92,599,97,799,256,6489 

460 DATA 796,887,181,257,611,189,572,7 

43,980,552,85,856,88,361,389,7307 
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538 DATA 424,61,362,99,402,689,106,373 

,395,365,994,374,111,514,621,5884 

686 DATA 84,357,488,137,368,98,563,93, 

366,426,847,589,367,184,626,5329 

665 DATA 187,373,668,817,628,661,612,3 

84,86,248,89,559,771,812,845,7644 

735 DATA 565,98,186,784,918,958,688,99 

1,728,677,415,885,964,983,284,9862 

818 DATA 26,536,251,99,562,823,339,978 

,539,573,186,538,364,685,652,7863 

885 DATA 978,128,336,189,987,762,645,9 

3, 563, 577, 828, 1, 23, 567, 187,6696 

958 DATA 658,444,958,166,775,385,533,4 

92,471,648,84,189,76,285,318,6474 

1825 DATA 363,288,792,279,796,756,788, 

155,585,789,292,867,212,552,369,7635 

1188 DATA 824,915,225,436,724,741,195, 

918,166,796,283,888,264,673,15,7975 

1175 DATA 989,793,296,456,964,185,588, 

512,330,541,25,284,881,459,361,7584 

1250 DATA 865,982,794,297,994,837,84,6 

74,584,216,493,52,877,295,793,8837 

1325 DATA 478,315,9,793,329,796,299,53 

6, 426, 321 , 191 , 292 , 869, 777 , 722 , 7885 

1488 DATA 949,829,795,298,964,91,61,81 

0,269,786,788,811,945,326,698,9412 

1475 DATA 931,507,348,891,386,797,568, 

815,954,799,302,813,92,155,821,9891 

1558 DATA 188,399,486,825,458,851,286, 

244,375,914,459,152,294,811,801,7521 

1625 DATA 733,947,813,297,952,179,583, 

434 , 715 , 624 , 566, 467 , 171 , 583 , 587 , 8651 

1780 DATA 309,455,178,582,39,443,613,3 

34,577,125,246,311,889,585,738,6264 

1775 DATA 784,942,821,385,887,789,738, 

575,239,679,425,775,387,130,348,8656 

1856 DATA 68,764,584,898,816,291,562,7 

54,308,825,358,238,283,398,811,7878 

1925 DATA 314,797,229,727,591,236,695, 

422 , 696, 539 , 394, 231 , 592 , 311 , 828 , 7682 

2000 DATA 781,208,18,238,786,289,784,2 

87,669,172,306,731,5261 



Cross Reference of Disk Tool BASIC program 



VAR 


LINE 


NUMBERS 






BftCKSND 
BLACK 


133, 
1 190 
133, 


623, 703, 930, 
, 1540, 1600 
623, 703, 1025, 


1023, 1083, 1113, 
1083 


BORDER 


133, 


7 05, 


930, 


1085 




BUFHI 


133, 


423 








BUFLO 


133, 


420 








BUFPTR 


135 










CASBUF 


133, 


866, 


887. 


1825, 


I960 


CASPTR 


133, 


8*3, 


16B0 


1730 


, 1740, 1843 


CHAR 


1419, 


623, 


703, 


930, 


1023, 1083 


CHN8BY 


140, 


1123 








CKLIM 


140, 


82.0, 


1660 


17 23 




CKROLtt 


140, 


773 








CKROLP 


140, 


770 








CLI0C4 


140, 


335 








CN1 IN 


140, 


1S30 


1B60, 1B70 


DAUX1 


140, 


410, 


S70, 


1420, 


17 43 


DAUX2 


140, 


413, 


870, 


1420, 


1745 


DBYH1 


143, 


433 








DBYLO 


145, 


430 








DCQMH 


143, 


403, 


990, 


1020 




DECHEX 


143, 


863, 


960, 


1665 




DUNIT 


143, 


400 








ENTLNK 


145, 


1670 








ERRFLB 
ERTRAP 


143, 
1675 
145, 


880, 883, 1000, 

1840, 1980 
323, 623, 1600, 


1003, 1010, 1020 

1870 



FILNUM 
F1NUMB 

GREEN 

hsec 

HEXDEC 

HILQ 

MEBflQE 

NMLNK 

PCHANBE 

PD1R 

PHELP 

PLUSHIN 

PMQD 

PPR1NT 

PRECOVER 

PR0C1NP 

PSEC 

PSET 

PTRACE 

PWRITE 

RECOVR 

RED 

REDIR 

SCROLL 

SETDSK 

3ET3CRN 

START 

TOPSEC 

TRASEC 

TURO 

WFLAG 

WHITE 

YELLOW 
DRIVE 

HELP 

3ECHI 

SECLOW 

SECNUM 

A« 



AN* 

HEXREP» 
HEXTAB* 

x 

LINBUF 

N 

1 

TSECH 

TSECL 

SCAND 

ARPT 



143 

130 

130 

130 

130 

130 

130 

130 

130 

130 

133 

135 

155 

133 

133 

133 

390 

1B13 

2030 

133 

155 

155 

133 

160 

160 

160 

166 

160 

160 

160 

160 

160 

165 

163 

163 

163 

233 
203 
233 

233 

1843 

235 

1843 

233 

B86 

1445 

285 

780 

1 103 

1290 

1390 

1690 

1800 

1930 

285, 

1463, 

283, 

1370, 

783, 

333, 
1333, 
1973, 
1 120, 

1270, 

1273, 

1360, 

1370, 

1343, 

1360, 

1363, 

1370, 



900. 1680, 1690, 1703, 1740 

1463, 1840, 1830, I860, 1870, 19B3 

623, 703, 1023, 1140, 1190, 1600 

403, 1020 

813, 1633, 1693, 1713, 1810, 1943 

863, 960, 1663, 1730 

933, 1090 

1733 

783 

790 

340, 730 

770, 773 

800 

733, 1863 

803 

473, 623, 733, 780, 783, 883, 887, 
903, 1223, 1310, 1490, 1730, 1803, 

, 1840, 1830, 1860,1940, 1930, 1983, 

, 2033 
990 

810 

760, 793 



1970, 

930 

1440 

960, 

330, 

800, 

875, 

893, 

1835, 

1540 

990. 



1093 

1600, 1663, 2033 
S10, 863, 1430, 1793, 
993 

1680, 1730, 1740, 184 
1880, 1973 



703, 930, 1083 

1083, 1113 

400, 743, 8B0, 970 
, 2033 
730, 763, 1330, 1793, 1930 



1000, 1005, 



413, 313, 870 
410, 313, 870 



1360, 1363, 1730, 
1370, 1373, 1730, 



473, 313, 330, 390, 770, 773, 883, 
B87, 890, 893, 963, 1013, 1423, 

1460, 1720, 1743 
473, 743, 750, 753, 760, 770, 773, 
7B3, 790, 793, 800, 805, 810, 813, 
, 1110, 1120, 1133,1273, 1280,1285, 
1473, 1480, 1483, 1370, 1373,1380, 
1395, 1600, 1643, 1630, 1633. 1683 
, 1693,1700, 1703, 1710,1713, 1720," 
, 1803, 1810, 1B13, 1933,1940 194s' 
, 2040, 2043, 2030 
973, 980, 983, 1030, 1433, 1460, 
1833, I860, 1863, 1870 

883, 890, 895, 963, 1360, 1363, 

1373 
290, 1360, 1363, 1370, 1373 

873, 933, 993, 1090, 1123, 1440. 
1393, 1670, 1733, 1833, 1UB0, 
2030, 2033 
1 123 

1283, 

1280, 

1363 

1373 

1363, 

1370, 

1370, 

1373 



1293, 
1283. 



1393 

1373, 

13B3 



1303 

1290, 1293, 1300 
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THE A.N. 


FIL 


1698, 


i7«e. 


1783 






PIN 


1813, 


1828, 


1833, 


193*. 


1933, 1973 


ST8EC 


1813, 


1833, 


IWI, 


1973 




RBLFI 


1828, 


1823, 


1933, 


1968 




IDX 


1823, 


1833, 


1960, 


1973 




• OF VARIABLES- 


■ 82 
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Disk Tool Memory Map 
(after fully loaded) 



$FFFF 



10420 


Basic code to Mem. top 
followed by O.S. /hardware area 


$28B4MEMLO 


10073 


Free patch area for modifications 


$2759 


7420 


Dsk Tool ML Code 
Area 


$1CFC 


1792 


Pg. 7-1C contain DOS 2.0S 
FMS Code &. Disk Drive Buffers 


$0700 


1536 


Pg.6 Autorun.sys init. code Sl IRQ. handler 


$0600 




Pg. 4 &. 5 not used by 
Dsk Tool 


047F 




cassette buffer (128 bytes) is used 


$03F0 




not used by Dsk Tool 


1030C 




Pg. 3 serial bus handler table is used 


$0300 




Pg. 2 not used by Dsk Tool 


$0200 


256 


Pg. 1 stack area 


$0100 





$CD and $CE are only Pg. 
Locations used 






Constant Description List 
DSKTOOL.PT2 

DESCRIPTION 

Background color register address (REGISTER 2) 
Color value for black 

Border color register address (REGISTER 4) 
Address of Disk buffer Pointer MSB 

Address of Disk buffer Pointer LSB 

Value set to 126. Byte 126 of CASBUF contains the LSB of the next sector number 
of the file being examined. 
Pointer to the start of the cassette buffer. 
CASBUF+CASPTR Points to the absolute address in CASBUF of the LSB of the next sector 
number for the current file. 
Character color register address (REGISTER 0) 
Absolute address to beginning of Change Byte ML code. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 

Absolute address to ML routine which sets up IOCB4 for ML output of messages etc. 
Absolute address to continue flag. Tells ML code if we are continuing a directory 
dump or sector trace. 
Address to disk AUX value LSB. 



ID 


NAME 


VAL 


1 


BACKGND 


710 




BLACK 





1 


BORDER 


712 


r 


-BUFHI 


773 


2 






L 


-BUFLO 


772 




BUFPTR 


126 




CASBUF 


1021 




CASPTR 


CAS1 


i 


CHAR 


709 


* 


CHNGBY 


7729 




CKLIM 


475 




CKROLM 


590 




CKROLP 


550 


* 


CLIOC4 


9023 


* 


CNTIN 


8958 



L" 



DAUX1 



DAUX2 



778 



779 



Address to disk AUX value MSB. 
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■DBYHI 



777 



Address to disk byte count MSB. 



L-DBYLO 


776 


DCOMM 


770 


DECHEX 


1360 


DUNIT 


769 


ENTLNK 


8180 


ERRFLG 


7550 


ERTRAP 


625 


FILNUM 


7556 


* FINUMB 


8179 


GREEN 


214 


GSEC 


82 


HEXDEC 


1275 


HILO 


515 


* MESAGE 


7430 


* NWLNK 


8194 


PCHANGE 


1085 


PDIR 


1420 


PHELP 


1190 


PLUSMIN 


865 


PMOD 


1645 


PPRINT 


1530 


PRECOVER 


1930 


PROCINP 


745 


PSEC 


87 


PSET 


2030 


PTRACE 


1795 


PWRITE 


950 


RECOVR 


9077 


RED 


64 


REDIR 


7823 


SCROLL 


660 


SETDSK 


400 


SETSCRN 


705 


START 


7420 


TOPSEC 


7555 


TRASEC 


■ 8224 


TURQ, 


186 


* WFLAG 


7554 


WHITE 


10 


YELLOW 


26 



Address to disk byte count LSB. 

Address to disk command byte location. Commands used by DISK TOOL are PUT 
SETOR with verify and GET SECTOR. 
Line number to Basic routine. 

Address to disk unit number. Location contains current drive being accessed. 
Absolute address to the Change links ML code. 
Absolute address to the error flag indicator in ML code. 
Flag is set by ML code to indicate any errors. 
Basic checks the flag to determine appropriate message. 
Line number to Basic routine. 

Absolute address to ML location. Location contains the file number to which the 
current sector belongs. 

Absolute address to ML location. Location contains the directory file number of a 
file $0-$3F. 

Value for the color green. 
GET SECTOR disk command value. 
Line number to Basic routine. 
Line number to Basic routine. 

Absolute address to ML code which displays items in CASBUF in HEX/ATASCI 
format. 

Absolute address to ML code which changes links during a modify link operation. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 

Disk command value for a PUT SECTOR with verify. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 

Absolute address in ML code of recover flag. Used by ML code to distinguish a 
recover file from a trace file. 
Value for the color red. 

Absolute address in ML code to the read directory function. 
Line number to Basic routine. 
Line number to Basic routine. 
Line number to Basic routine. 

Absolute address to the start of DISK TOOL ML code. 

Absolute address to ML location. Location contains the MSB of the sector number 
currently being examined. 

Absolute address to the start of the TRACE SECTOR ML code. 
Value for the color turquoise. 

Absolute address to ML Write flag location. Informs the ML code if the next opera- 
tion is a read or write. l=\vrite 
Value for the color white. 
Value for the color yellow. 



ID EXPLANATIONS 

1= References hold true for Graphics 0. Other modes have different meanings. If confusion exists, see color register 
assignment table in the ATARI BASIC Reference Manual. 
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2= These locations point to an area in memory where we want the data on a disk sector to be placed after a read. On a 
disk write, these locations point to the area of memory which contains the data to be written. Disk Tool sets these 
pointers to the cassette buffer since it is free when using the disk drive. 

3= Locations contain sector number (LSB/MSB format) of sector to read or write. 

4= Locations contain number of bytes (LSB/MSB format) to be read or written. 

*= Point to absolute locations in the ML code. In most cases the Basic constant name is the same as the label name in 
the assembly source code. Exceptions are CNTIN for CONTIN and NWLNK for NEWLNK due to BASIC not 
accepting CONTIN and NEWLNK. I could have used the LET statement but. . .NAAHH!!! 

VARIABLE DESCRIPTION LIST 



ARPT 

DRIVE 

FIL 

FIN 

HELP 

IDX 

LINBUF 

RELFI 

SCAND 

SECHI 

SECLOW 

SECNUM 

STSEC 

TEMP 

TSECH 

TSECL 

X 

Y 



Pointer to each item in A$ 

Current Disk Drive being used. 

Temporary file number variable. 

File number input for TRACE or RECOVER. 

Help flag. l=Help menu is up. 0=Help menu not up. Prevents printing the help screen since it 

is in the wrong graphics mode for the Print routine. 

Absolute index to start of file entry in CASBUF. 

Pointer to A$ string in memory. 

Relative file number of an entry in the directory. 

Pointer to address of the start of the screen. 

Hi byte of SECNUM. 

Low byte of SECNUM. 

Current sector number being read or written. 

Directory start sector number of file being requested. 

Value of ASCII character on the screen. 

Temporary value of SECHI for DEC-HEX conversion. 

Temporary value of SECLOW for DEC-HEX conversion. 

MISC variable. 

MISC variable. 



STRING CONSTANT LIST 



NAME 

A$ 
AN$ 

HEXREP$ 
HEXTAB$ 



DESCRIPTION 

Input for COMMANDS, NUMBERS (HEX or DECIMAL) and CHANGE BYTE line. 

Input string for various answers to prompts. 

String which holds the hex value of a converted decimal value. 

Table of hex string values used by the DEC-HEX routine to convert a decimal number string to it' 

hex equivalent. 






HOME UTILITIES 
AND EDUCATION 









VOL. 1 



THE A.N.A.L.O.G. COMPENDIUM 



PAGE 101 



HOME ENERGY 
CONSUMPTION ANALYSIS 



16K Cassette 32K Disk 



by Joe E. Harb, Jr. 



"Thermowatts" and "Kilowatts" arc ATARI 
BASIC programs which require 16K RAM with cas- 
sette and 32K RAM with disk. "Thermowatts" 
analyzes yearly, monthly, and daily natural gas and 
electricity consumption and cost for homes which 
use both utilities. "Kilowatts" provides similar anal- 
ysis for all-electric homes. 

When we moved into our present house several 
years ago, I planned to make a number of energy con- 
servation modifications to the house. I decided that I 
would like to use my ATARI 800 to determine what 
impact those modifications had on our energy con- 
sumption and costs. That led to the writing of "Kilo- 
watts" which I subsequently rewrote as "Thermo- 
watts," using natural gas data which I still had on 
hand from my previous house. Both programs make 
provisions for yearly and monthly temperature fluc- 
tuations. Statistics generated by both programs can 
be displayed on the screen or printed to a line print- 
er. 

Monthly and yearly temperature variations are 
taken into consideration by analyzing kilowatt/ 
therm consumption per cooling/heating degree day, 
as appropriate. A heating degree day is each degree 
that the average temperature drops below 65 degrees 
F on a given day. A cooling degree day is each degree 
above 65 degrees F. The total number of cooling and 
heating degree days in each month can be obtained 
from your local weather bureau (National Oceanic 
and Atmospheric Administration — NOAA). Our 
local NOAA office at Baltimore Washington Inter- 
national Airport kindly provided me with several 
years of monthly degree day information over the 
telephone. 

In a given month, a minimum of 100 cooling 
degree days is required before the programs will cal- 
culate cooling degree day consumption for that 
month. A minimum of 200 heating degree days is 
required for heating degree day analysis. This was 
done because in months when the number of heating 
or cooling days is below the threshold, energy use for 



heating or cooling is so low that the data becomes 
heavily biased by other energy use. This bias makes it 
seem that consumption per degree day is abnormally 
high. To change the threshold for cooling degree 
days, change the value of MINCD in line 100 of 
Kilowatts and 110 of Thermowatts. To change the 
threshold of heating degree days, change the value of 
MINHD on the same line. 

In order to further minimize distortion by elec- 
tricity consumption for uses other than heating and 
cooling, both programs subtract 400 kilowatts from 
each month's total electricity use before computing 
consumption per degree day. (This subtraction is not 
performed in computing any other statistics.) The 
variable used in the subtraction is FCTR, also in Line 
100/110. It can be changed if you feel your non- 
heating/cooling electricity use is higher or lower. 

All REM statements can be eliminated from both 
programs without requiring any line number 
changes. Additionally, if you feel the explanation of 
DATA statements given in the following paragraph is 
adequate, you can eliminate the instruction sub- 
routine (Lines 6999-7190 in both programs, 2050 in 
"Kilowatts," and 2090 in "Thermowatts"). If you 
do not have a printer, you can eliminate the printer 
subroutines (Lines 2040 and 5999-6880 in "Kilo- 
watts" and 2040, 2080 and 5999-6860 in "Thermo- 
watts"). 

One DATA line is required for each month of 
data. DATA lines must be numbered in increments 
of 1, beginning with Line 1000, i.e., 

1688 MTA JAM, 79, 1329, 29,56.10,10,29. 88,984, 8 
1801 DATA FEB, 79, 1426, 28, 68. 44, J2, 31. 44, 1188,0 
1002 DATA MAR, 79, 520, 31, 50. 98, 11, 28. 33,528,15 

DATA statements must contain: month (first three 
letters); year (last two digits); number of kilowatts 
used; number of days in billing period; cost of elec- 
tricity (paid on time and including fuel surcharge); 
number of therms; cost of natural gas; heating degree 
days; and cooling degree days. The number of 
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therms and cost of natural gas arc not used in "Kilo- 
watts." All of the required information except heat- 
ing and cooling degree days can he obtained from 
utility bills. As explained above, the information on 
heating and cooling degree days can be obtained 
from your local NOAA office. 

If you have been looking for a relatively quick and 
easy way of neatly aligning columns of figures, par- 
ticularly those with decimal fractions, you might 
want to consider using the technique I employed in 
several subroutines of both programs, for example in 
Lines 3170-3190. It can be done in four easy steps: 

1. Decide the rightmost column for displaying a 
particular set of figures. Then add 1 to that value. In 
subroutine 3000, I wanted the last digit of the vari- 
able X to be printed in column 11.1 then added 1 to 
that number, for a total of 12. It you are aligning 
figures with decimal fractions, use the column where 
the decimal point is to be printed, and do not add 1. 

2. Measure the length of the variable by convert- 
ing it to a string and using the LEN function. In Line 
3170, LEN(STR$(1NT(X))) means calculate the 
length (LEN) of the variable X after converting it to 
an integer (INT) and then to a string (STR$). The 
variable must be converted to a string because the 
LEN function can only measure the length of string 
variables. For this measurement, it is important to 
convert a numeric variable to an integer when the 
variable includes a decimal fraction. This is neces- 
sary because the ATARI eliminates final zeros after 
the decimal point. Thus, 3.50 is displayed 3.5. Con- 
sequently, if you wished to align the numbers 3.5 and 
4.27 and if you measured the whole length of the 
variable, the columnar alignment of the numbers 
would be: 

3.5 
4.27 

3. Pick a variable name for the column where 
printing of the display variable is to begin. (I used 
CL1 in the example.) Then, use the algorithm in this 
paragraph to calculate the column where printing is 
to begin. The algorithm subtracts the length of the 
integer portion of the string from the value calcu- 
lated in step 1. In other words, the column where 
printing is to begin equals the length of the integer 
portion of the variable subtracted from the column 
where printing is to end. That is expressed in BASIC 
as CL1 = 12-LEN(STR$(INT(X))). This means that 
the first digit of the variable X will be displayed at 
screen column 12 minus the length of the integer X. 

4. Position the cursor at the column and row 
where printing is to begin. This is done with the 
POSITION statement. In Line 3180, the cursor is 
positioned at column CLl.row PEEK(84). 
PEEK(84) is the memory location of the current 
cursor row. Finally, use the PRINT statement to dis- 
play the variable on the screen. Once you get used to 
this process, it can be done fairly fast. Of course, it 



can be further simplified by performing the whole 
operation at one time: 

POSITION 12-LEN (5TR$ (INT (X)}) , PEEK (84) : ?X 

In "Thermowatts," each of the subroutines for the 
menu options does double duty. Each subroutine 
computes either gas or electricity statistics, depend- 
ing on what is requested. The software accomplishes 
this by setting the variable T to a "0" or a " 1" during 
menu selection. A "0" indicates that electricity data 
is to be processed, and a "1" indicates natural gas 
data. Each subroutine has statements which check 
the value of T and then select the appropriate data or 
print the proper column headings. For instance, in 
Lines 3120-3130, if T=0, the variable DD (degree 
days) = CD (cooling degree days) because electric- 
ity powers air conditioning equipment. If T=l, 
DD=HD (heating degree days) because natural gas 
provides heat. 

During operation of these programs, do not 
depress the return key at any time when responding 
to a screen prompt. Simply type the letter(s) or 
numbers desired for input. The GET statement will 
determine which key(s) you depressed. In order to 
access the keyboard, a channel to the keyboard was 
opened in Line 70. 



Variables used in Kilowatts and Thermowatts. 

A: Used with GET to determine last key depressed 
on keyboard. 

Al$: Used only in gas and electricity program. 
Represents variations of the words "therm" or 
"kilowatts" in column headings onscreen or printer. 
Allows one subroutine to print headings for gas or 
electricity. 

ANET: Used to represent electricty cost (NET) or 
gas cost (GNET) whenever single subroutine must 
calculate either gas or electricity statistics. 

AVG: Per kilowatt or per therm cost. 

B: Use with A when more than one key input from 
keyboard is required. 

C: Used with A & B when three-key input 
required from keyboard. 

CAVG: Average monthly consumption of 
kilowatts per degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CD: Cooling degree days in a given month. 

CDAVG: Average annual consumption of 
kilowatts per cooling degree day. Used only in sub- 
routine 6000 of Kilowatts because both cooling and 
heating degree day information are analyzed and 
printed at the same time. In Thermowatts, this is not 
necessary because there is so much data that separate 
printouts are required for cooling and heating degree 
day consumption. Consequently, a single variable 
DDAVG can perform double duty. 

CDDIV: Total number of Kilowatts used when 
computing annual average consumption of Kilowatts 
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per cooling degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CDTOT: Total number of cooling days per annum. 
Used only in subroutine 6000 of Kilowatts. See 
explanation under CDAVG. 

CL1: (Column 1); Column where printing of spe- 
cified data begins. Used to right-justify screen 
display. 

CL2: (Column 2); Used with CL1 when more 
than 1 column cannot be right-justified in some 
other way. 

CL3: (Column 3); Used with CL1 and CL2 when 
more than two columns cannot be right-justified in 
some other way. 

CL4: (Column 4); Used with CL1, CL2 and CL3 
when more than three columns cannot be right- 
justified in some other way. 

COST: Total annual cost of gas or electricity. 

DAYS: Number of days during billing period. 

DD: Used to represent either cooling or heating 
degree days in subroutines where either can be used. 

DDAVG: Average annual use of Kilowatts or 
therms per cooling or heating degree day. 

DDN$: Used in subroutines 3000, 5000, and 6000 
to represent words "HEAT" or "COOL" in column 
headings, depending on whether user has requested 
cooling or heating degree day information. 

DDT: Total number of heating/cooling degree 
days in a given year. 

DIV: Total number of energy units used when 
computing annual average consumption per degree 
day. Used in subroutine 5000 of Thermowatts and 
subroutines 5000 and 6000 of Kilowatts. 

FCTR: Estimated minimum amount of electricity 
used monthly for uses other than heating or cooling. 
Subtracted from UNITS before computing con- 
sumption per degree day. Can be raised or lowered if 
estimated minimum is different. 

GNET: Cost of gas without late charge. 

GUNITS: Therms of gas used during billing 
period. 

HAVG: Average monthly consumption of 
kilowatts per heating degree day. Used only in sub- 
routine 600 of Kilowatts. See explanation under 
CDAVG. 

HDDIV: Total number of kilowatts used when 
computing average annual consumption of kilowatts 
per heating degree day. Used only in subroutine 600 
of Kilowatts. See explanation under CDAVG. 

HDTOT: Total number of heating degree days per 
annum. Used only in subroutine 6000 of Kilowatts. 
See explanation of under CDAVG. 

HIYR: High year in data base. 

HL: No. of lines to be printed on each page. 

K$: Month for which data requested in menu 
options A, B, E, and F. 

KPD: Average number of kilowatts or therms per 
degree day. 



KPD$: Used to represent either variable KPD or 
letters "N/A" when printing out results of 
kilowatts/therms per degree day computation. 

LINE: Last line of DATA. 

LOYR: Lowest year of data in data base 

M$: Month of data contained in DATA line. 

MINCD: Minimum number of cooling degree 
days necessary for computing electricity consump- 
tion per cooling degree day. 

MINHD: Minimum number of heating degree 
days necessary for computing gas/electricty 
consumption per degree day. 

NET: Cost of electricity without late charge. 

NR: Used to calculate number of months in data 
base. 

PRNT$: One PRNT$ string is created for each line 
of data to be printed with the line printer in sub- 
routine 6000. Allows data to be aligned easily in 
columns without using TAB functions which vary 
from printer to printer. 

R$: Represents month in subroutine 6460/6570 
to compare same month of different years. 

SET: Sets flag when high line of page print reached 
during loop. 

T: A flag. In Thermowatts, it is set during menu 
selection. It is used later in subroutines to identify 
whether gas or electricity data is to be processed. In 
Kilowatts, it is set at beginning of subroutines 3000 
and 5000 to identify whether user has requested 
information on consumption per cooling or heating 
degree day. This is unnecessary in Thermowatts 
because the choice of desired information is implied 
by menu selection of electricty or natural gas data. 

TIME: Last line printed on printer. 

UNITS: Kilowatts used during billing period. 

UP: Average daily kilowatt or therm consump- 
tion. 

USE: Total annual consumption of gas or 
electricity. 

Y: Year of data on DATA line. 

YR: Year of data being processed. 

Z: Index variable for loops, i.e., keeps track of no. 
of times loop has occurred. □ 



Thermowatts 

18 ? "*":P0KE 82,8 

28 ■> " THERMOWATTS" 

38 ? " GAS & ELECTRICITY" 

48 ? " ANALYSIS PROGRAM" !» 

58 » " 8Y JOE HARB":^ 

68 ? :? "DURING OPERATION OF THIS PROG 

RAM, 00 NOTOEPRESS RETURN KEY AFTER TY 

PING ANSWERS TO PROMPTS" 

78 OPEN *tl,4,8,"K:":REM OPEN KEYBOARD 

TO GET INPUTS HHEN GET STATEMENT IS US 

ED THROUGHOUT PROGRAM 

88 ? :? "DEPRESS ANY KEY TO CONTINUE." 

:GET HI, A:? "N" 

188 DIM A15C9) ,A2$C6I , DDNS t4) , MS C3J , KS 

C3) ,KPD$C6) ,PRNT$<65) ,R$(3> 

118 MINCD=188:MINHD=28e:FCTR=488:REM M 

INCD=MINIMUM COOLING DAYS NECESSARY FO 

RCOMPUTATION 
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120 REN AlS * A2S ARE USED TO PRINT UA 
RIATIONS OF THE WORDS KWATTS OR THERMS 

50 ONE SUBROUTINE CAN BE USED FOR 
138 REM ELECTRICITY OR GAS COMPUTATION 
200 REM CALCULATE: TOTAL MONTHS OF DAT 
A CNR); LOW YEAR OF DATA CLOVR) ; AND H 
IGH YEAR OF DATA CHIYR) 
210 NR— 

220 READ NS,Y, UNITS, DAYS.NET, GUM ITS , GM 
ET,HD,CD 

230 REM MS=MONTH, V=VEOR, UNITS=KILOWA 
TTS USED * GUNITS=GA5 THERM USED IN BI 
LLING PERIOD 

240 REM DAVS=NR. OF DAYS IN BILLING PE 
RTOD 

250 REM NET=COST OF ELECTRICITY WHEN B 
ILL PAID ON TIME, GNFT=COST OF GAS PAI 
D ON TIME 

260 REM CALCULATE NR . OF MONTHS OF INF 
IN DATA BASE CNR), HIGH YEAR OF DOTAC 
HIYR), & LOW YEAR OF DATACLOYR) 
270 LOYR=Y:RESTORF 

280 READ MS ,Y, UNITS, DAYS, NET, GUNITS,GN 
ET,HD,CD 

290 IF MS="END" THEN RESTORE :GOTO 200 


700 NR=NR+l:HIVR=Y 
310 GOTO 280 

498 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS A, B, E, F; THEN CLEAR INPU 
T OUESTIONS FROM SCREEN TO ALLOW 

499 REM DISPLAY OF ADDITIONAL DATA 

500 * "TYPE FIRST THREE LETTERS OF MON 
TH YOU MANT.":GET ttl,A:GFT ttl,B:GET 
ttl,C 

510 REM NEXT LINE CONVERTS ATASCI VAI II 
ES TYPED ON KEYBOARD TO A STRING 
520 KS=CHRS CAI : KS CLEN f KS1 +1) = CHR$ CBJ : K 
S tLFN C KS) +15 =CHRS CO ! GOSIJB 538 ! RFTURN 
530 POKE 84, PEEK C84)-?: FOR 7=8 TO 1?* 

•I 

" :NEXT 7:REM 3? SPACES 
540 POKE 84,PEEKC84)~2:RETURH 
1008 DATA JAN, 79, 624, 16, 26.20,51,36.18 
,984,0 

1001 DATA FEB, 79, 602, 31, 25. 98, 60, 42. 40 
,1100,0 

1002 DATA MAR, 79, 536, 29, 21. 65, 55, 40. 61 
,528,15 

1803 DATA APR, 79, 454, 30, 19.80,49,35.20 
,354,4 

1004 DATA MAY, 79, 527,32, 27. 91,40, 31. 55 
,75,72 

1005 DATA JUN, 79, 768, 29, 38. 46, 33, 22. 75 
,6,183 

1886 DATA JUl , 79, 1281 , 30, 55 . 65 , 10 , 9 . 04 
,2,348 

1007 DATA AUG, 79, 691, 29, 36. 45, 8, 8. 50, 3 
,341 

1008 DATA SEP, 79, 1242,32,52, 16,12,14.2 

fi 1 ■? 1 A *v 

1889 'DATA OCT, 79, 57 1,30, 24. 43, 20, 20.11 

,311,28 

1010 DATA NOU, 79, 686, 32, 27. 92, 32, 25. 67 
,425,1 

1011 DATA DEC, 79, 688, 31, 26. 75, 49, 48. 83 
,757,8 

1012 DATA JAN, 88, 619, 28, 24. 45, 53, 38. 88 
,962,8 

1813 DATA FEB, 88, 527, 32, 28. 97, 57, 45. 98 
,967,8 

1814 DATA MAR, 88, 528, 29, 21. 41, 58, 41. 89 

,723,8 

1815 DATA APR, 88, 521, 30, 24. 64, 39, 23, 85 
,273,0 

1016 DATA MAY, 80, 591,32, 34. 82, 22, 18. 97 
,74,97 

1017 DATA JUN, 80, 739, 29, 37. 98, 16, 10. 49 
,6,203 

1818 DATA JUL, 88, 1683, 38, 98. 78, 11,7.43 

,0,415 

1019 DATA AUG, 88, 838, 29, 53. 52, 8, 6. 66, 8 

,431 

1828 DATA SEP, 80, 1538, 32, 74 .26, 15, 18 . 7 

7,28,245 

1821 DATA OCT, 80, 589, 30, 30. 45, 28, 22. 84 

,311,17 



1822 DATA NOW , 80,690, 33, 30 .21 ,33, 27 . 64 
,620,0 

1823 DATA DEC, 88, 770, 31 , 33 . 04, 41, 34 .49 
908 

i©24 ' DATA JAN , 81 , 642 , 28 , 28 . 85 , 58 , 53 . 37 

,1145,0 

1899 DATA END, 999, 0, 0, 0, 0, 0,0, 

1999 REM MENU SUBROUTINE 

2800 ? "THIS PROGRAM ALLOWS THE FOLLOW 

ING SELECTIONS:":? 

2810 ? " A. TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT USE" 

2020 t " B. TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT COST" 

2030 ? " C. TOTAL ANNUAL KILOWATT 

USE AND COST" 

2840 2 " D. PRINTOUT OF ALL ELECTR 

ICAL USE DATA" 

2850 ? " E. TOTAL MONTHLY AND AUER 

AGE DAILY GAS THERM USE" 

2860 ? " F. TOTAL MONTHLY AND AUER 

AGE DAILY THERM COST" 

2O70 ? " G. TOTAL ANNUAL THERM USE 

AND COST" 
208O ? " H. PRINTOUT OF ALL GAS US 
E DATA" 

2090 2 " I. DATA INPUT INSTRUCTION 
S" 

2100 ? " J. EXIT PROGRAM" 
2110 REM GET IS USED TO DETERMINE LETT 
ER TYPED ON KEY BOARD; A=ATASCI UALI1E 
OF LETTER TYPED 

2120 ? "TYPE LETTER OF OPTION YOU WANT 
":GET ttl,A:? "N" 

2130 T=0:IF A=65 THEN 3000: REM T IS FL 
AG TO TELL LATER SUBROUTINES WHETHER G 
AS OR ELECTRICITY ANALYSIS REOUESTED 
2140 IF A=66 THEN 4000 
2150 IF A=67 THEN 5888 

2168 IF A=68 THEN OPEN 114, 8 .8, "P : " : GOT 
6888: REM OPEN CHANNEL TO PRINTER 
2170 T=l:IF A=69 THEN 3000 
2180 IF A=70 THEN 4000 
2190 IF A=71 THEN 5000 

2200 IF A=72 THEN OPEN 1*4, 8,0, "P : " :GOT 
6000 

2210 IF A = 73 THEN 7OO0 
2220 IF A=74 THEN POKE 82,2:END 
2999 REM SUBROUTINE FOR MENU OPTIONS A 

* E 
3888 GOSUB 508 
3810 IF T=0 THEN DDN$="COOL" : AlS="KWU 

II 

3828 IF T=l THEN DDNS="HEAT" : A1S="THER 

M" 

3838 ? " AUG TOTAL 

AUG ";A1S:REM 15 SPACES BEFORE AUG 

3040 ? " TOTAL DAILY '^DDNS; 

" USE" 

3050 ? " ";A1S;" ";A1S;" D6R 

EE PER ";DDN$ 

3860 ? "MONTH USE USE DAYS 

DGREE DAY" 

3878 FOR 7=1 TO NR 

3880 READ MS , Y, UNITS, DAYS, NET, GUNIT5, G 

NET,HD,CD 

3090 IF MSOKS THEN 3200 

3100 X=UNITS:IF T=l THEN X=GUNITS 

3110 UP=INTC10O0*X/DAYSJ/1000:REM COMP 

UTE UNITS PER DAY AND LIMIT DECIMAL PL 

ACE5 DISPLAYED 

3120 IF T=0 THEN DD=CD : IF CD>MINCD THE 

N 3150 

3130 IF T=l THEN DD=HD : IF HD>MINHD THE 

N FCTR=0:GOTO 3150 

3140 IF CD<=MINCD OR HD<=MINHD THEN KP 

DS="N/A":GOTO 3170 

3150 KPD=INT C10O0*f X-FCTR J / ( CDD/30) *DA 

YS)J/1000:KPD$=STRSCKPDJ :REM COMPUTE U 

NITS PER DEGREE DAY 

3160 REM LINES 3170-3190 ALIGN AND PR! 

NT SCREEN DISPLAY 

3170 CLl=12-LENfSTRSCINTCXl J> :CL2=17~L 

EN CSTRS CINT CUP) J J : CL3=27~LEN f STRS CDDJ J 

: CL4=32-LEN CSTRS CINT CKPD) J J 

3180 2 MS;" ";Y;" ";:POSITION CI. 1, PEE 

KC84):? X;:POSITTON CL2,PEEKC84J :? UP; 

^POSITION CL3, PEEK (841 :? DD; 
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3198 POSITION CL4,PEEK(84) :? KPDS 

3200 NEXT Z: RESTORE 

3210 1. :? "DO VOU MANT TO LOOK AT ANOT 

HER MONTH? TYPE V OR N.":GET ttl , A 

3220 IF A=89 THEN GOSUB 538: GOSUB 500: 

GOTO 3070 

3230 ? "«":GOTO 2800 

3993 REM SUBROUTINE FOR MENU OPTIONS B 

t, F 
4000 GOSUB 500 

4810 ? "MONTH TOTAL TOTAL UNIT" 
4020 AlS="KHU ":IF T=l THEN AlS="THER 
M" 

4830 ? " ";AlS;" COST COS 
T":REM 9 SPACES BEFORE AlS 
4040 FOR 7=1 TO NR 

4850 READ MS, Y, UNITS, DAYS, NET , GUNITS, G 
NET,HD,CD 

4868 IF MSOKS THEN 4118 

4870 X=UNITS:ANET=NET:IF T=l THEN X=GU 
NITS:ANET=GNET 
4080 AUG=INT (10888* CANET/X] ) / 18600 ! REM 

CALCULATE COST PER UNIT 
4090 CLl=13-LEN(STRStX>J : CL2=19-LEN (ST 
RSdNT(ANET))) 

4100 ? MS;" ";Y; :POSITION CL1,PEEK(84) 
:? X;" ";:POSITION CL2,PEEK(84) :? AN 
ET;:POSITION 25,PEEK(84) :? AUG 
4118 NEXT Z:RESTORE :? 

4120 ? :? "DO YOU WANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.":GET ttl , A 
4130 IF A=89 THEN GOSUB 530: GOSUB 500: 
GOTO 4040 
4140 ? "N":GOTO 2088 

4999 REM SUBROUTINE FOR MENU OPTIONS C 
4 G 

5000 IF T=8 THEN DDN$="COOL" : AlS="KMAT 
TS" 

5010 IF T=l THEN DDNS="HEAT" : AlS="THER 
MS":FCTR=0 
5020 VR=LOYR 

5030 *> " ""DDNS"" 

AUG ";AlS:REM 22 SPACES BEFORE DDNS 
5040 ? " ";AlS;" DGREE 

PER DGREE":REM 9 SPACES BEFORE DGREE 
5050 ? "YEAR USED COST DAYS 
AY" 

5060 USE=0:COST=0:DDT=0:DIM=0 
5070 FOR Z=l TO NR 

5080 READ MS, Y, UNITS, DAYS, NET , GUNITS, G 
NET, HO, CD 

5090 X=UNITS:ANET=NET:IF T=l THEN X=GU 
NITS:ANET=GNET 
5100 IF YOYR THEN 5150 

5110 IF T=0 THEN DD=CD:TF CD<=MINCD TH 
EN DD=Q:GOTO 5140 

5120 IF T=l THEN DD=HD:IF HD<=MINHD TH 
EN DD=0:GOTO 5140 
5130 DDT=DDT+DD:DIU=DIU+X-FCTR 
5140 USE=USE+X:C0ST=C05T+ANET 
5150 NEXT ZlRESTORE 

5160 DDAUG=0:IF DDT>0 THEN DDAUG=INT(1 
0OO*DIU/DDT) /1000 

5170 CL1=11-LEN (STRS (USE)) :CL2=17-LEN( 
STRS CINT (COST) J ) : CL3=26~LEN (STRS (DDT) ) 
: CL4=30-LEN (STRS (INT (DDAUG) ) ) 
5180 ? YR+1900; IPOSITION CL1 ,PEEK (84) : 
? USE; : POSITION CL2,PEEK(84) :? COST; 
5190 POSITION CL3,PEEK(84) :? DDT;:POSI 
TION CL4, PEEK (841 :? DDAUG 
5200 YRrYR+l:IF YR<HIYR+1 THEN 5060 
5210 ? "DEPRESS ANY KEY TO RETURN TO M 
ENU.":GET ttl, A 
5220 ? "*":GOTO 2000 

5999 REM SUBROUTINE FOR MENU OPTIONS D 
& H FOR (LINE PRINTER! 

6000 TIME=0:SET=0:? "TYPE NUMBER OF LI 
NES PER PAGE TO BE PRINTED" : GET ttl 
,A:GET ttl,B:HL=((A-48)#18)+(B-48) 
6810 LPRINT CHRS(27) ;CHRS(56) : REM DISA 
BLE EPSON PRINTER "END OF PAPER" FUNCT 
ION 

6620 AlS="KWATTS" :DDNS="COOL" : IF T=l T 
HEN fllS="THERMS" : DDNS="HEAT" : FCTRzO 
6830 ? tt4;" T 

OTAL AUG": REM 26 SPACES BEFORE TOTA 
L 



6040 ? tUi" " 

;DDNS;" ";A1S:REM 26 SPACES BEFORE 

DDNS 
6050 ? tt4;" ";AlS;" TOTAL 
DEGREE PER":REM 9 SPACES BEFORE AlS 
6060 ? tt4;"YEAR USED COST D 
AYS DGR DAY":LPRINT 
6070 TIME=TIME+5:YR=L0YR 
6080 USE=O:COST=0:DDT=0:DIU=O 
6090 PRNTS=" 

":REM 65 SPACES 
6100 FOR Z-X TO NR:REM CALCULATE ANNUA 
L CONSUMPTION AND COST 

6110 READ MS, Y, UNITS, DAYS, NET, GUNITS, G 
NET,HD,CD 

6120 X=UNITS:ANET=NET:IF T=l THEN X=GU 
NITS:ANET=GNET 
6130 IF YOYR THEN 6188 

6140 IF T=8 THEN DD=CD : IF CD<=MINCD TH 
EN DD=8:G0T0 6170 

6150 IF T=l THEN DD=HD:IF HD<=MINHD TH 
EN DD=0:GOTO 6170 
6160 DDT=DDT+DD:DIU=DIU+X-FCTR 
6170 USE=USE+X:C0ST=C05T+ANET 
6188 NEXT Z: RESTORE 

6190 DDAUG=0:IF DDT>8 THEN DDAUG=INT(1 
88*DIU/DDT)/188 

6200 PRNTS (11-LEN (STRS (USE) ) ,12)=STRS( 
USE) 

6210 PRNTS C18-LEN CSTRS (INT (COST) ) ) , 21) 
=STRS(COST) 

6220 PRNTS(28-LEN (STRS (DDT)) ,38)=STR$( 
DDT) 

6238 PRNTS (33-LEN (STRS (INT (DDAUG))) ,36 
)=STRS (DDAUG) 

6248 ? »4;YR+1900; PRNTS :TIME=TIME+1 
6250 YR=YR+l:IF YR<HIYR+1 THEN 6080 
6260 LPRINT :TIME=TIME*1 

6399 REM CALCULATE AND PRINT MONTHLY 
DATA. SUBROUTINE 6410 PRINTS COLUMN 
HEADIN5 ON EACH SHEET OF PAPER 

6400 GOSUB 6410:G0T0 6470 

6410 AlS="KWATT":DDNS="COOL":IF T=l TH 
EN AlS="THERM":DDNS="HEAT" 
6420 PRINT tt4;" 

";A1S:REM 
51 SPACES BEFORE AlS 

6430 PRINT tt4; "MONTH DAILY MONTHL 
Y TOTAL COST ";DDN$;" PER" 
6440 PRINT tt4;" ";AlS;" ";A1 
S;" MONTHLY PER DEGREE DEGREE 
":REM 9 SPACES BEFORE AlS 
6450 PRINT tt4;" USE USE 

COST ";A1S;" DAYS DAV":TIM 
E=TIME+4:REM 9 SPACES BEFORE USE 
6460 RETURN 

: GOSUB 6600 

GOSUB 6600 

I GOSUB 6608 

GOSUB 6600 

: GOSUB 6600 

GOSUB 6600 

: GOSUB 6688 

GOSUB 6600 

: GOSUB 6600 

GOSUB 6600 

GOSUB 6608 

GOSUB 6600 

!» "*" :GOTO 2800 



6470 RS="JAH": 
6480 RS="FEB" 
6490 RS="MAR": 
6500 RS="APR"1 
6510 RS="MAY" 
6520 RS="JUN" 
6530 R$="JUL" 
6540 RS="AUG" 
6550 RS="SEP": 
6560 RS="OCT" 
6570 RS="NOU": 
6580 RS="DEC": 
6590 CLOSE tt4 1 
6600 FOR Z=l TO NR 
6610 PRMTS=" 



6620 READ MS, Y, UNITS, DAYS, NET, GUNITS, G 

NET,HD,CD 

6630 IF HSORS THEN 6888 

6648 X=UNITS:ANET=NET:IF T=l THEN X=GU 

NITS:ANET=NET 

6650 UP=INT(1OO*(X/DAYS))/10O 

6660 OUG=INT(iee0*(ONET/X))/10O0 

6670 IF T=0 THEN DD=CD:IF CD>=MINCD TH 

EN 6700 

6680 IF T=l THEN DD=HD:IF HD>=MINHD TH 

EN 6700 

6690 IF CD<HINCD OR HD<MINHD THEN KPD= 

0:GOTO 6710 
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6700 KPD=INT (10O0*(X-FCTR) / ( (DD/30)«DA 

YS))/10O0:KPDS=5TRS(KPD) 

6710 PRNTS (6-LEN (STRS CINT (UP) J 1 , 8J =STR 

S(UP) 

6728 PRNTS (17-LEN (STRS (X) J , 16J =5TRS CXI 

6730 PRNTS (25-LEN (STRS CIHT (ANET) J ) , 27) 

=STR$(ANET) 

6740 PRNTS C3I-LEN (STRS (INT (AUG) ) 1 , 341 = 

STRS (AUG) 

6750 PRNTS (41-LEN (STRS (DD) ) , 40) =STRS (D 

D) 

6760 IF KPD=6 THEN PRNTS (49, 51) ="N/A" : 

GOTO 6780 

6770 PRNTS (48-LEN (STRS (INT (KPD) ) ) , 51) = 

5TRS(KP0) 

6788 PRINT tt4;MS;" M ;V;PRNTS 

6738 TIME=TIME+1:IF TIME=HL THEN SET=1 

6808 NEXT Z:RESTORE 

6818 IF 5ET=0 THEN 6858 

6828 IF RS="DEC" THEN 6868 

6838 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY.": GET ttl,A 
6848 TIHE=8:SET=8:G8SUB 6418 
6858 LPRINT : TIME=TIME+1 : IF TIME=HL TH 
EN 6826 
6866 RETURN 

6999 REM INSTRUCTIONS FOR PREPARING DA 
TA LINES 

7000 ? "N":LINE=NR+999 

7010 ? "FOR EACH MONTH OF DATA YOU HOU 
E, YOU MUST TYPE ONE DATA LINE.":? 
7028 ? "THE FIRST DATA LINE MUST BE NU 
M8ERED 1000" 

7030 ? "AFTER THAT, EACH DATA LINE MUS 
T BE NUMBERED ONE HIGHER THAN THE 

LAST, FOR" 
7040 ? "EXAMPLE 1000 MUST BE FOLLOWED 
BY 1001, 1002, 1003, 1004, ETC.":? 
7050 ? "DEPRESS ANY KEY HHEN READY FOR 

NEXT INSTRUCTIONS.": GET ttl,A 
7060 ? "REQUIRED FORMAT FOR DATA LINE: 

7070 ? "1800 DATA OCT, 82, 1358, 30, 79 . 25 

,40,35.28,675,8" 

7888 ? "DATA ITEMS ARE:" 

7090 ? "1. MONTH; MUST BE 3 LETTERS LO 

NG." 

7100 ? "2. YEAR; MUST BE 2 NUMBERS LON 

G." 

7118 ? "3. NUMBER 8F KIL6MATTS USED DU 

RING MONTH" 

7120 ? "4. NUMBER OF DAYS IN BILLING P 

ERIOD" 

7130 ? "5. NET COST OF ELECTRICITY IN 

BILLING PERIOD. DO NOT USE '$' BEFOR 

E COST." 

7140 ? "6. NUMBER OF THERMS USED DURIN 

G BILLING PERIOD." 

7150 ? "7. NET GAS COST DURING BILLING 

PERIOD." 
7168 ? "8. HEATING DEGREE DAYS IN BILL 
ING PERI8D." 

7178 ? "9. COOLING DEGREE DAYS IN BILL 
ING PERIOD." 

7188 ? "THE LAST LINE OF DATA YOU ENTE 
RED HAS: "'LINE 

7198 ? "NOw' BEGIN TYPING NEW DATA LINE 
S." 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 292,441,842,99,579,987,378,636 

,836,328,718,391,885,96,582,7986 

238 DATA 233,730,591,746,76,528,88,681 

,716,931,938,958,848,258,376,8594 

548 DATA 999,829,942,42,828,874,988,82 

1,722,238,8,882,813,869,834,18533 

1814 DATA 790,789,981,886,798,786,235, 

48,817,754,52,716,513,196,246,8431 

2828 DATA 188,384,413,926,623,957,582, 

346,418,668,158,289,852,856,62,7618 

2178 DATA 43,853,857,152,858,829,785,7 

25,984,34,834,67,296,576,496,8389 



3088 DATA 529,843,657,119,289,954,155, 

6,288,885,643,249,778,316,846,7557 

3230 DATA 308,791,727,478,859,221,495, 

528 , 844 , 558 , 976, 789 , 947 , 58 , 316 , 8887 

4138 DATA 843,308,797,965,968,821,983, 

227,574,777,500,533,562,736,79,9585 

5120 DATA 103,217,179,784,160,155,583, 

146,442,48,311,374,459,583,449,4985 

6030 DATA 909,968,263,948,489,781,562, 

324,531,568,750,89,113,222,184,7693 

6180 DATA 789,719,261,379,272,537,363, 

456,452,183,373,949,793,589,58,7173 

6450 DATA 209,887,0,993,12,27,14,58,57 

,35,33,24,61,993,415,3738 

6600 DATA 513,715,547,898,256,544,862, 

628.652,432,421,622,602,336,833,8853 

6758 DATA 94,607,871,681,181,882,752,9 

74,248,891,158,819,716,946,671,9331 

7820 DATA 376,829,188,999,227,833,62,3 

68,898,846,531,489,482,50,291,7389 

7178 DATA 342,975,364,1681 



Kilowatts 



10 POKE 82,8 

28 •* "IW KILOMATTS" 

30 ■> " ELECTRICITY" 

40 ? " ANALYSIS PROGRAM" 

50 ? " 8V JOE HARB" 

60 ? "**DURING OPERATION OF THIS PROGR 

AM, DO NOT DEPRESS RETURN KEY AF 

TER TYPING ANSWERS TO PROMPTS." 

70 OPEN «l,4 f 0,"K:":REM OPEN KEYBOARD 

TO GET INPUTS LATER IN PROGRAM WHEN G 

ET STATEMENT IS USED 

80 ? :? "DEPRESS ANY KEY TO CONTINUE." 

'.GET ttl,A 

90 DIM DDNS(4),MS(3),KS(3),KPDS(6),PRN 

TS(65),RS(3) 

100 MINCD-lO0:MINHDr208:FCTR=480:REM M 

INCDzMINIMUM COOLING DAYS NECESSARY FO 

RCOMPUTATION 

118 REM MINHD=MINIMUM HEATING DEGREE D 

AY5 NECESSARY 

120 REM FCTR=NR. OF KILOWATTS TO BE SU 

BTRACTED FROM MONTHLY KILOWATT USE MHE 

N COMPUTING DEGREE DAYS. 

130 REM SUBTRACTING FCTR REDUCES EXTEN 

T TO WHICH OTHER HOUSEHOLD ELECTRICITY 

USE BIASES HEATING AND COOLING STATS 
208 REM CALCULATE: TOTAL MONTHS OF DAT 
A (NR); LOW YEAR OF DATA (LOYR) ; AND H 
IGH YEAR OF DATA (HIYR) 
210 NR=0 

220 READ MS, Y, UNITS, DAYS, NET, HD, CD 
230 REM MS=MONTH, Y=YEAR, UNITS=KILOMA 
TTS USED USED IN BILLING PERIOD 
240 REM DAYS=NR. OF DAYS IN BILLING PE 
RI6D 

258 REM NET=C8ST OF ELECTRICITY WHEN B 
ILL PAID ON TIME,DD=DEGREE DAYS DURING 

BILLING MONTH 
268 REM HD=HEATING DEGREE DAYS 
278 REM CD=COOLING DEGREE DAYS 
288 LOYR=Y:RESTORE 

290 READ MS, Y, UNITS, DAYS, NET, HD, CD 
300 IF MSr"END" THEN RESTORE :GOT0 288 
8 

318 NR=NR+l:HIYR=Y 
328 GOTO 290 

498 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS A & B; THEN CLEAR INPUT QUE 
STIONS FROM SCREEN TO ALLOW DISPLAY 

499 REM OF ADDITIONAL DATA 

500 ? "NTYPE FIRST THREE LETTERS OF MO 
NTH YOU WAHT.":GET «1,A:GET ttl , B : GET 

ttl,C 
518 REM NEXT LINE CONUERTS ATASCI UALU 
ES TYPED ON KEYBOARD TO A STRING 
520 KS=CHRS(A) : KS (LEN (KS) +1)=CHRS (B) :K 
S(LEN(KS)+1)=CHRS(C) :GOSUB 538:RETURN 
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538 POKE 84,PEEKC84)~2:F0R Z=0 TO 1:? 



VOUR DATA STATEMENTS GO HERE 



" :NEXT Z:REM 39 SPACES 
540 POKE 84 , PEEK C84)-2 :RETURN 
1800 REM 

1899 DATA END, 999, 6, 8, 8, 8 , 8 
1999 REM MENU OPTIONS 
2880 ? "HTHIS PROGRAM ALLOWS THE FOLLO 
MING SELECTIONS:":? 
28.10 ? " A, TOTAL MONTHLY AND AUER 
AGE DAILY KILOMATT USE" 

TOTAL MONTHLY AND AUER 

KILOMATT COST" 
TOTAL ANNUAL KILOWATT 

COST" 
PRINTOUT OF ALL ELECTR 

DATA" 
DATA INPUT INSTRUCTION 



2828 ? " 
AGE DAILY 
2830 ? " 
USE AND 
2840 ? " 



B. 



D 



USE 
t «■ 



■ F. EXIT PROGRAM":' 

'TYPE LETTER OF OPTION YOU WANT 



ICAL 

2858 

S" 

2860 ? 

2878 ? 

,":GET itl,A 

2888 REM GET IS USED TO DETERMINE LETT 

ER TYPED ON KEYBOARD; ArATASCI UALUE 

F LETTER TYPED 

2890 IF A = 65 THEN 3888 

2188 IF A=66 THEN 4888 

2118 IF A = 67 THEN 5888 

2128 IF A = 68 THEN TRAP 2168:0PEN tt4,8, 

8,"P:":TRAP 18888:G0T0 6088 

2130 IF A=69 THEN 7088 

2148 IF Ar78 THEN POKE 82,2:END 

2150 GOTO 2878 

2168 REM PRINTER ERROR MESSAGE 

2170 CLOSE tt4:? "PRINTER IS NOT ON-LIN 

E'B":TRAP 18800: GOTO 2878 

2999 REM SUBROUTINE FOR MENU OPTION A 

3880 GOSUB 580 

3810 ? "DO YOU WANT TO INCLUDE INFORMA 

TION ON HEATING CH), COOLING CO OR NE 

ITHERCH)'":GET ttl,A:GQ5UB 538 

3820 IF A=67 THEN DDNS="COOL" : T=0 

3030 IF A=72 THEN DDNS="HEAT" : T=l 

3840 IF A = 78 THEN DDNS=" " :T = 2:DD=8 

3858 ? "MONTH TOTAL AUG TOTAL A 

UG KWU" 

3868 ? «' KWU DAILY DGREE P 

ER ";DDNS:REM 8 SPACES BEFORE KWU 

3870 ? " KWU USE DAYS D 

GREE DAY": REM 14 SPACES BEFORE KWU 

3880 FOR Z = l TO NR 

3098 RFAD MS, Y, UNITS, DAYS, NET, HD, CD 

3188 IF MSOKS THEN 3208 

3118 UP=INTtl88*UNITS/DAYS)/108:REM CO 

MPUTE UNITS PER DAY AND LIMIT DECIMAL 

PLACES DISPLAYED 

3128 IF Tz8 THEN DD=CD : IF CD>MINCD THE 

N GOTO 3158 

3138 IF T=l THEN DD=HD : IF HD>MIHHD THE 

N GOTO 3158 

3140 IF T = 2 OR CD<=MINCD OR HD<=MINHD 

THEN KPDS="N/A":GOTO 3170 

3150 KPD=INTC180*CUNITS-FCTR)/C(DD/38) 

*DAYS) ) /188 : KPDS=STRS CKPD) : REM COMPUTE 

UNITS PER DEGREE DAY 
3168 REM LINES 3178-3198 USED TO ALIGN 

AND PRINT SCREEN DISPLAY 
3170 CL1=12-LENCSTRSCINTCUNITS))) :CL2= 
17-LEN CSTRS {INT CUP) ) ) : CL3=26~LEN C STRS C 
DD) ) : CL4 = 32-LEH CSTRS f INT CKPD) ) ) 
3180 ? MS;" ";Y; :POSITION CL1,PEEKC84) 
:? UNITS; :POSITION CL2 , PEEK C84) : ? UP;: 
POSITION CL3,PEEKC84) :? DD; 
3190 POSITION CL4,PEEKC84) :? KPDS 
3200 NEXT Z: RESTORE 

3210 ? :? "DO YOU WANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.":GET 111 , A 
3220 IF A=89 THEN GOSUB 538 : GOSUB 508: 
GOTO 3080 

3230 ? "H":GOTO 2888 

3999 REM SUBROUTINE FOR MENU OPTION B 
4880 GOSUB 500 

4810 ? "MONTH TOTAL TOTAL UNIT" 
4020 ? " KWU COST COST" 

:REM 9 SPACES BEFORE KWU 
4838 FOR Z=l TO NR 
4840 READ MS, Y, UNITS, DAYS, NET , HD , CD 



4858 IF MSOKS THEN 4898 

4060 AUG=IHT C180O8*CNET/UNITS) ) /18888 : 
REM CALCULATE AVERAGE DAILY USE 
4870 CLi=13-LENCSTRSCINTCUNITS))) :CL2= 
19-LEN CSTRS CINT CNET) ) ) 

4O80 ? MS;" ";V; :POSITION CL1,PEEKC84) 
:? UNITS;" ";:POSITION CL2,PEEKC84) : 
? NET; :POSITION 25,PEEKC84) :? AUG 
4090 NEXT Z:RESTORE 

4188 ? :? "DO YOU WANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.":GET ttl , A 
4110 IF A=89 THEN GOSUB 538: GOSUB 588: 
GOTO 4838 

4128 ? "«":GOTO 2880 

4999 REM SUBROUTINE FOR MENU OPTION C 
5880 ? "«D0 YOU WANT TO INCLUDE INFORM 
ATION ON HEATING CH) OR COOLING CO' 
":GET ttl,A:YR=LOYR 

5010 IF A = 67 THEN DDNS="COOL" : T=8 
5828 IF A=72 THEN DDNS="HEAT" :T=1 
5838 ' " " ■ DDNS * " 

AUG KMATT":REM 22 SPACES BEFORE DDN 
S 

5848 ? "YEAR KWATTS DGREE P 

ER DGREE": REM 18 SPACES BEFORE DGREE 
5858 ? " USED COST DAYS D 
AY" 

5868 USE=8:C0ST=8:DDTz8:DIUz8 
5878 FOR Z-X TO NR 

5888 READ MS, Y, UNITS, DAYS, NET, HD, CD 
5898 IF YOYR THEN 5148 

5188 IF T=8 THEN DD=CD : IF CD<=MINCD TH 
EN DD=8:G0T0 5130 

5110 IF T = l THEN DD=HD : IF HD<=MINKD TH 
EN DD=0:GOTO 5130 

5120 DDT=DDT+DD : DIU=DIU+UNITS~FCTR 
5138 USE=USE+UNITS:C0ST=C05T+NET 
5140 NEXT Z:REST0RE 

5158 DDAUG=8:IF DDT>8 THEN DDAVG^INTCl 
O8*DIU/DDT)/100 

5160 CL1=17-LENCSTRSCIHTCC05T))) :CL2=2 
6-LEN CSTRS CINT CDDT) ) ) : CL3 = 38~LEN CSTRS C 
INTCDDAUG))) 

517© ? YR+1980;" ";USE;" ";:P0SITI0 
N CL1,PEEKC84) :? COST; : POSITION CL2,PE 
EKC84):' DDT; : POSITION CL3,PEEKC84) 
5180 ? DDAUG 

5198 YR=YR+l:IF YR<HIYR+1 THEN 5068 
5200 RESTORE 

5210 ? :? "DEPRESS ANY KEY TO RETURN T 
MENU.": GET ttl , A 
5220 GOTO 2088 

5999 REM SUBROUTINE FOR MENU OPTION D 
6888 TIME=8:SET-0:? "HTYPE NUMBER OF L 
INES PER PAGE TO BE PRINTED .": GET 
ttl , A : GET ttl, B : HL= C CA-48) *10) + CB-48) 
6818 LPRINT CHRS C27) ; CHRS C56) : REM DISA 
BLE EPSON "END OF PAPER" FUNCTION 
6828 ? tt4;" TOT 

Al AUG TOTAL AUG":REM 24 SPACES 

BEFORE TOTAL 
6030 ? tt4;" HEA 

T KWATT COOL KWATT":REM 24 SPAC 
ES BEFORE HEAT 
6848 ? tt4;" KWATTS TOTAL DGR 

PER DGR PER":REM 8 SPACES 
BEFORE KWATT 

6858 ? tt4;"YEAR USED COST DAY 
5 DGR DAY DAYS DGR DAY":LPRINT 
6860 TIME=TIME+5:YR=L0YR 

6878 USE=8:COST=8:CDDIU-8:CDTOT=0:HDDI 
U=0 : HDTOT=0 : CDAUG=0 : HDAUG=8 
6088 REM CDDIU & HDDIU ARE NUMBER OF A 
NNUAL KILOWATTS FOR HEATING « COOLING. 

ONLY MONTHS WITH MORE THAN 100 
6890 REM COOLING OR 288 HEATING DEGREE 
DAYS ARE INCLUDED. 508 KWATTS PER MONT 
H SUBTRACTED BY FCTR FOR OTHER ELECT. 
6100 REM CDTOT & HDTOT ARE TOTAL HEATI 
NG/COOLING DEGREES PER ANNUM FROM MONT 
HS WITH SUFFICIENT DEGREE DAYS 
6118 PRNTS=" 

":REM 65 SPACES 
6120 FOR Z=l TO NR:REM CALCULATE ANNUA 
L CONSUMPTION AND COST 
6130 READ MS, Y, UNITS, DAYS, NET, HD, CD 
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6146 IF YOVR THEN 6188 

6158 IF CD>HINCD THEN CDTOT=COTOT+CD : C 

DDIV=CDDIU*UNITS-FCTR 

6168 IF HD>NINHD THEN HDTOT=HDTOT+HD :H 

DDIU=HDDIV*UNIT5-FCTR 

6178 U5E=USE+UNITS:C0ST=C05T*NET 

6188 NEXT Z: RESTORE 

6198 IF CDT8T>8 THEN CDAUG=INTC188*CDD 

IV/CDT0T)/188 

6288 IF HDT8T>8 THEN HDAUG=INT C188*HDD 

IU/HDT0T)/188 

6218 ? t*4;YR+1988; : PRNTS Cil-LEN CSTRS CU 

SE)),18)=STRSCUSE) 

6228 PRNTS f 16-LEN CSTRS CINT CCOST) ) ) , 18) 

=5TRSCC8ST) 

6238 PRNTS C25-LEN CSTRS CHDTOT) ) , 24) =5TR 

S CHDTOT) 

6248 PRNTS C38-LEN CSTRS CINT CHDAUG) J ) , 32 

)=STR$CHDAVG) 

6258 PRNTS C41-LEN CSTRS CCDTOT) J , 48) =STR 

S CCDTOT) 

6268 PRNTS C45-LEN CSTRS CINT CCDAUG) ) ) , 47 

)=STRSCCDAUG) 

6278 ? It4; PRNTS :TIME=TIHE+1 

6288 YR=YR+l:IF YR<HIYR+1 THEN 6878 

6298 RESTORE :LPRINT :TIME=TIME+1 

6399 REM CALCULATE AND PRINT MONTHLY 

DATA. SUBROUTINE 6418 PRINTS COLUMN 

HEADINGS ON EACH SHEET OF PAPER 

6488 GOSUB 6418: GOTO 6468 

6418 ? tU'," 

KMAT 
":TIMErTIME+l:REM 47 * 18 SPACES 
6428 ? tt4; "MONTH DAILY 
HLY COST HEAT PER 
: TIME=TIME+1 

6438 ? It*;" KHATT KMATT COS 
T PER DGRE DGRE DGRE DGRE 
":TIME=TIME+l:REM 8 SPACES BE4 KMATT 



KMAT 



MNTHLY MNT 
COOL PER" 



6448 ? 84;" USE 

KMU DAYS DAY 
ILPRIHT :TIME=TIME+l:REM 8 
6458 RETURN 
6468 RS="JAN" 



USE 

DAYS DAY 1 

& 13 5PC5 



6478 RS="FEB r 
6488 R$="MAR" 
6498 RS="APR" 
6588 RS="MAY" 
6518 RS= ,, JUN" 
6528 RS="JUL" 
6538 RS="AUG" 
6548 RS="SEP" 
6558 RS="OCT" 
6568 RS- M NOV" 
6570 RS-"DEC" 
6588 CL8SE tt4 



G8SUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
GOSUB 6688 
G6SUB 6688 



GOSUB 6688 

? "It"; GOTO 2888 

6688 FOR Z=l T6 NR : REM CALCULATE MONTH 

LY CONSUMPTION AND COST 

6618 READ MS, Y. UNITS, DAYS, NET, HD, CD 

6628 HAVG=8:CAUG=8 

6638 IF MSORS THEN 6828 

6648 ? t»4;MS;" ";Y; 

6658 PRNTS=" 

":REM 65 SPACES 
6668 UP=INT C188*CUNITS/DAYS) 1 /188 
6678 PRNTS C6-LEN CSTRS CINT CUP) 1) ,8)=STR 
5 CUP) 

6680 PRNTS C15-LEN CSTRS CUNITS) ) , 14) =STR 
SCUNITS) 

6698 PRNTS C22-LEH CSTRS CINT CNET) ) ) , 24) = 
5TRSCNET) 

6788 AVG=INTCieee*CNET/UNITS))/1686 
6718 PRNTS C28-LEN CSTRS CINT CAUG) ) ) , 31) - 
STRSCAUG) 

6728 PRNTS C39-LEN CSTRS CHD) ) , 38) = STRS CH 
D) 

6738 IF HD>MINHD THEN HAUG=INT C188*C CU 
NIT5-FCTR) /HD) ) /1888 

6748 IF HAVG=8 THEN PRNTS C42, 44) ="N/A" 
:GOTO 6768 

6758 PRNTS C43-LEN CSTRS CINT CHAUG) ) ) , 46) 
=STR$CHAUG) 

6768 PRNTS C53-LEN CSTRS CCD) ) , 52) =STRS CC 
D) 

6778 IF CD>MINCD THEN CAUG=INT C188*C CU 
NITS-FCTR) /CD) ) /1888 



6788 IF CAUG=8 THEN PRNTS C56, 58) ="N/A" 

:GOTO 6888 

6798 PRNTS C57-LEN CSTRS CINT CCAUG) ) ) , 68) 

rSTRSCCAVG) 

6888 TIME=TIME+l:IF TIME=HL THEN SET=1 

6818 ? tt4; PRNTS 

6828 NEXT Z: RESTORE 

6838 IF 5ET=8 THEN 6878 

6848 IF RS="DEC" THEN 6888 

6858 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY":GET ttl,A 
6868 TIME=8:SET=8: GOSUB 6418 
6878 LPRINT : TIME=TIME+1 : IF TIME=HL TH 
EN 6848 
6888 RETURN 

6999 REM INSTRUCTIONS FOR PREPARING DA 
TA LINES 

7888 LINE— NR+999 

7818 ? "HFOR EACH MONTH OF DATA YOU HA 
UE, YOU MUST TYPE ONE DATA LINE." 
7828 ? "+THE FIRST DATA LINE MUST BE N 
UMBERED 1888." 

7838 ? "*AFTER THAT, EACH DATA LINE MU 
ST BE NUMBERED ONE HIGHER THAN TH 
E LAST." 

7848 ? "FOR EXAMPLE, 1088 MUST BE FOLL 
OMED BY 1881, 1882, 1883, 1884, ETC. 

II 

7858 ? "4DEPRESS ANY KEY WHEN READY FO 

R NEXT INSTRUCTIONS.": GET ttl , A 

7868 ? "HTHE FOLLOWING IS THE FORMAT F 

OR A DATA LINE:" 

7878 ? "41888 DATA OCT , 82 , 1358, 38, 79 . 2 

5,495,8" 

7888 ? "^REQUIRED DATA SEQUENCE AND FO 

RMAT:" 

7898 ? "1. MONTH; MUST BE 3 LETTERS LO 

NG" 

7188 ? "2. YEAR; MUST BE 2 NUMBERS LON 

G" 

7110 ? "3. NUMBER OF KILOMATTS USED IN 

MONTH" 
7128 ? "4. NUMBER OF DAYS IN BILLING P 
ERIOD" 

7130 ? "5. NET COST OF ELECTRICITY IN 
BILLING PERIOD" 

7148 ? "6. HEATING DEGREE DAYS IN BILL 
ING PERIOD" 

7158 ? "7. COOLING DEGREE DAYS IN BILL 
ING PERIOD" 

7168 IF LINE0999 THEN ? "4LA5T LINE 
F DATA YOU ENTERED MAS: ";LINE 
7178 ? "4N0M BEGIN TYPING NEM DATA LIN 
ES." 
7188 END 



CHECKSUM DATA 

(See pgs. 7-10) 

18 DATA 626,571,316,11,87,658,765,978, 

462,317,312,349,844,885,96,7261 

228 DATA 748,581,738,152,156,283,79,76 

9,55,684,722,11,498,617,848,6585 

528 DATA 258,376,999,591,189,73,428,43 

5,728,148,283,338,681,639,485,6467 

2898 DATA 851,848,852,684,868,824,723, 

279,394,487,725,125,171,153,332,8228 

3858 DATA 496,276,286,497,761,837,185, 

274,293,885,611,584,357,351,249,6942 

3288 DATA 778,316,848,388,491,727,478, 

84,494,758,865,148,662,758,783,8482 

4188 DATA 314,839,386,495,552,174,156, 

129,793,294,777,588,764,748,77,6918 

5118 DATA 181,58,652,783,713,236,823,6 

69,448,51,341,715,499,355,188,6544 

6820 DATA 373,553,248,527,488,719,149, 

880, 872, 557, 326, 764, 751, 18, 184, 7241 

6170 DATA 658,789,616,635,828,389,85,5 

36,63,546,626,457,719,248,372,7567 

6418 DATA 189,812,186,297,886,999,992, 

11,33,13,57,56,34,32,23,4388 

6568 DATA 68,992,414,734,777,465,896,3 

52,576,218,625,142,869,295,848,8247 
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6720 DATA 127,482,778,321,181,446,779, 
389,95,995,884,758,988,189,893,7977 
6878 DATA 166,821,716,358,473,886,594, 
695,429,247,84,642,143,82,144,6472 
7128 DATA 531,385,47,98,613,435,276,23 
85 



Snowflake Demo 



18 REM «** SNOMFLAKE GENERATOR *K» 

28 REM 

38 REM BV TOM HUDSON 

48 REM 

58 REM SET UP GRAPHICS MODE, COLORS 

60 REM 

78 GRAPHICS 8+16 : SETCOLOR 2,8,8:C0L0R 

88 REM 

98 REM SET UP DEGREES, X AND Y TABLES 

100 REM 

118 DEG :DIM DC18),XC18),YC18) 

128 REM 

136 REM RANDOMIZE SHAPE 

140 REM 

156 FOR 1=1 TO 10:DCI)=0:XCI)=RND(O)*8 

O:YCI)=RNDC0)*I*4:NEXT I : POKE 77,0 

166 REM 

176 REM ECHO AND ROTATE SHAPE 

188 REM 

190 PLOT 166,96:F0R 1=1 TO 10:DRAHTO 1 

60+ tX CIJWCOS CD CI J J +Y CI J *SIN CD CI) ) ) , 96 + 

C-X CI )*5IN CD CI) ) +Y CI)*COS CD CI J ) J 

208 D CIJ =D CI) +60: NEXT I: IF DC1X368 TH 

EN 190 

218 FOR 1=1 TO 18:DCI)=8:NEXT I 

220 PLOT 160,96:F0R 1=1 TO 10:DRAMTO 1 

60+ CX CI) *COS CD CI) ) -Y CI)*SIN CD CI) ) ) , 96 + 

C-X CI)*SIN CD CI) ) -Y CI)*COS CD CI) ) ) 

238 D CI) =D CI) +68 .'NEXT I : IF DC1X360 TH 

EN 228 

248 REM 

250 REM LEAVE IT ON SCREEN A WHILE 

268 REM 

270 FOR DELAY=1 TO 5088: NEXT DELAY: RUN 
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TYPING TRAINER 



16K Cassette 24K Disk 



by Regena 



Typing Trainer utilizes color, graphics and 
sound to help a student practice typing sentences for 
accuracy. There are 40 different 30 -stroke sentences 
that are chosen randomly for the drills. Each drill 
consists of ten different sentences. 

A sentence is shown on the screen. The student 
types and enters it. If it is incorrect, an "uh-oh" 
sounds and a "wrong" score is posted. The student 
has time to review the sentence before continuing. If 
the typed sentence is correct, a "right" score is 
posted, a train whistle sounds, and there are two 
blasts of steam from the engine's smokestack. 

The running total score is displayed on the screen 
after each sentence. After ten sentences, the final 
score is displayed and a tune is played. 

Following each drill of ten sentences, the student 
may choose whether to try again or not. If "N" for 
"no" is entered, the program ends. If "Y" for "yes" 
is entered, the drill is repeated with ten different 
sentences. Each drill chooses the sentences random- 
ly, and the drill may be performed four times with- 
out sentences being repeated. After that, the sen- 
tences are all available for four more drills. The drills 
will be different each time because the sentences are 
chosen randomly. This process continues as long as 
the student wishes to continue. 

Programming techniques. 

ATARI does not allow arrays of string variables, 
so an array of sentence numbers is used. The sen- 
tences are numbered 1 through 40, where J is the 
number. Initially, all A(J)s are set to zero. After a 
sentence is used, A(J)=1. 

To print a sentence, first a number J is chosen as a 
random integer from 1 through 40 (Line 220). If 
A(J)=1 the sentence has been used before and may 
not be chosen again, so another J is chosen (Line 
230). If A(J)=0,SEN$ is set equal to the J th sentence 
and the program branches to the drill (Lines 232- 
250, 4000-4390). 

After the drill has been performed four times 



(using FLAG as a counter), all A(J)s are reset to zero 
so the sentences are all available for use in the next 
drill (Line 180). 

To avoid the possibility of the student "crashing" 
the program during responses, an INPUT procedure 
is avoided. Instead, the program looks at what key is 
pressed by using B=PEEK(764). Yes or no responses 
are received by the student pressing "Y" or "N". 
Any other key pressed is ignored. 

When sentences are typed, the characters are 
printed as each key is pressed until "RETURN" is 
pressed (which indicates the student is finished typ- 
ing the sentence). The control keys or SHIFTing are 
not allowed, since a typist practicing sentences 
should not backspace and type over letters, nor type 
capital letters in the middle of the sentence (actually, 
the student types all capital letters in the standard 
computer mode but does not SHIFT). If a control 
key or SHIFT is pressed, an asterisk is printed in that 
character position of the student's sentence. 

To avoid scrolling, the student is permitted to type 
only 34 characters in the sentence (Line 2005). The 
student's sentence is compared with the given sen- 
tence either after "RETURN" is pressed or after 34 
characters have been typed. □ 



Explanation of the program. 
Variables Used 



J 
A(J) 

FLAG 

WS 
RS 

PROB 
R 

D 



Sentence number. 
=0 for available sentence, =1 if sen- 
tence has been used. 
Counter for number of times drill 
is performed. 
Wrong score. 
Right score. 

Counter for number of sentences. 
= 1 if sentence is typed correctly, 
=0 if sentence is typed incorrectly. 
Counter in delay loop for SOUND. 
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B 
BB 

I 

C, L 
SEN$ 
OLDB 
K 



Value in PEEK(764) for key pressed. 

= 1 for "yes" response, =0 for "no" 

response. 

Counter in loop. 

ASCII value. 

Typing sentence. 

Holding variable for B value. 

Counter for number of characters 

printed in student's sentence. 

Character for key pressed. 

Student's typed sentence. 



C$ 
T$ 
X,Xl,Y,Yl,II, 

X2,Y2,X3,Y3 Coordinates for graphics. 

Line Numbers Procedure 



10 
30 
100 
120 

180-200 

202 

205 

210 

220-230 



232-250 



255-280 



300-310 



320 
330-345 

350 



355- 


■360 


370 




400-495 


496 




510- 


530 



999 



Prints title screen and plays music. 
Prints instruction screen. 
DIMensions variables. 
Reads in data for ASCII codes re- 
lated to key pressed. 
Initializes variables. 
Draws train. 

Initializes score to be zero. 
Performs the drill for 10 sentences. 
Randomly chooses a sentence; if 
the sentence has been used previ- 
ously, chooses another one. 
Depending on the J chosen, prints 
the corresponding sentence and 
prints the student's sentence; com- 
pares sentences. 

If sentence is incorrect, sounds 
"uh-oh" and increments wrong 
score. 

If sentence is correct, train toots 
whistle and blows steam; incre- 
ments right score. 
Prints running score. 
Short delay for correct sentence, 
longer delay for incorrect sentence. 
A(J)=1 indicates sentence J has 
been used and will not be available 
to use again. 

Clears text screen and goes to next 
sentence. 

After ten sentences, prints total 
score on full screen and plays 
music. 

Asks the student to "try again?" 
and waits for the student to press 
"Y" or "N." 

If the student pressed "N," ends 
program. 

If the student pressed "Y," incre- 
ments the number of times the drill 
was performed, If the drill has been 
performed 4 times, resets all sen- 
tences to be available; branches to 
beginning of drill. 
End. 



Subroutines 
1000-1060 



1900-2500 

1905 
1910-1930 

2000 
2005 

2010-2400 



2410-2500 

4000-4390 
5000-6840 
7000-7490 
8000-8160 

9000-9080 



Subroutine reads DATA for assign- 
ing ASCII code to key pressed for 
use in printing. 

Subroutine prints the sentence and 
accepts student's sentence. 
Prints the sentence. 
Sounds a "beep" to indicate the 
student's turn to type. 
Initializes variables. 
Allows student to input up to 34 
characters. 

Prints each character as the student 
types it. If the student tries to press 
a control or SHIFTed character, 
"*" is printed. The student presses 
"RETURN" to end the sentence. 
Sets R=l if the sentence typed 
matches the given sentence, other- 
wise R=0, then returns. 
The given 30-stroke typing sen- 
tences. 

Subroutine draws the train and coal 
car. 

Subroutine prints title screen and 
plays music. 

Subroutine prints instructions and 
waits for student to press "RE- 
TURN" to continue. 
Subroutine prints score and plays 
music. 



18 GRAPHICS 18:G0SUB 7680 

38 G0SUB 8880 

188 DIM AC40),LC63),SEN$C30),T$C35),C$ 

C1),H$C1) 

128 G0SUB 1888 

188 FOR J=l TO 40:ACJ)=0:NEXT J 

288 FLAG=8 

282 G05UB 5000 

205 M5=8:RS=8 

218 FOR PR0B=1 TO 10 

220 J=INT(40«RNDC1))+1 

230 IF ACJ)=1 THEM 220 

232 IF J>38 THEH 248 

234 IF J>28 THEH 244 

236 IF J>18 THEH 240 

238 OH J G05UB 4000,4010,4028,4838,484 
8,4050,4066,4070,4080,4090 

239 GOTO 255 

240 JJ=J-10 

242 OH JJ G03UB 4100,4110,4120,4138,41 
48,4150,4160,4178,4188,4198 

243 GOTO 255 

244 JJ=J-20 

245 OH JJ G05UB 4200,4210,4220,4230,42 
48,4250,4268,4270,4280,4290 

246 GOTO 255 
248 JJ=J-30 

258 OH JJ G0SUB 4300,4310,4320,4330,43 

48,4350,4368,4378,4388,4398 

255 IF R=l THEM 380 

260 SOUND 0,84,10,14 

264 FOR D=l TO 40: NEXT D 

268 SOUND 0,101,10,14 

270 FOR D=l TO 40 : NEXT D 

275 SOUND 8,0,10,0 

280 WS=WS+1:G0T0 320 

360 G0SUB 3000 

310 RS=RS+1 
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329 PRINT :PRIMT RS;" RIGHT", WSj" URON 

G" 

338 IF R=l THEN 345 

348 FDR D=l TO 588: NEXT 

345 FOR D=l TO 588: NEXT D 

358 acj)=i 

355 PRINT : PRINT :PRINT 

368 NEXT PROB 

379 GOSUB 9988 

400 GRAPHICS 9 

410 PRINT : PRINT '.PRINT 

420 PRINT "DO YOU WANT TO TRY AGAIN?" 

439 PRINT SPRINT "PRESS "Y 1 FOR YES" 

440 PRINT " 'N' FOR NO" 
450 B=PEEKC764J 

460 IF B=43 THEN BB=1:G0T0 498 

470 IF B=35 THEN BB=9:G0T0 498 

489 GOTO 458 

498 SOUND 8,23,18,8 

492 FOR D = l TO 18:NEXT D 

494 SOUND 8,0,10,8 

495 POKE 764,255:B=255 

496 IF BB=8 THEN 999 
50O PRINT "If" 

518 FLAG=FLAG+1:IF FLAG=3 THEN 188 

530 GOTO 282 

999 END 

1888 FOR 1=8 TO 63 

1818 READ C:LCIJ=C:NEXT I 

1848 DATA 76,74,59,0,0,75,43,42,79,0,8 

0,85,0,73,45,61,86,8,67,0,0,66,88,98,5 

2,8,51,54,8,53,58 

1850 DATA 49,44,32,46,78,8,77,47,8,82, 

8,69,89,8,84,87,81,57,8,48,55,9,56,68, 

62,78,72,68,8,9,71,83,65 

1869 RETURN 

1999 POKE 764,255:B=255 

1905 PRINT SENS 

1910 SOUND 0,47,18,14 

1920 FOR D=l TO 60:NEKT D 

1938 SOUND 0,0.10,0 

2800 OLDB=-l:TS= ,m :OPEN ttl,4,0,"K:" 

2005 FOR K=l TO 34 

2810 GET ttl,B:IF B=155 THEN 2400 

2828 IF B>96 THEN CS="*":GOTO 2865 

2868 C$=CHR$CB) 

2865 PRINT CS; : T$ tLEN CT$J +1J =C$ 

2080 NEXT K 

2090 GOTO 2490 

2100 I=INTfPEEKf53775)/4J 

CI/2) THEN 2010 

2110 POKE 764,255:0LDB=-1 

2128 GOTO 2018 

2408 CLOSE ttl 

2410 IF TS=SEN$ THEN R=1:G0T0 2509 

2428 R=8 

2588 RETURN 

3888 FOR 11=1 TO 2 

3818 SOUND 8,58,19,14:50UND 1,63,19,14 

3925 COLOR 2 

3838 GOSUB 3509 

3948 FOR D=l TO 108:NEXT D 

3858 SOUND 8, 8, 10,0 : SOUND 1,0,10,0 

3O70 COLOR 0: GOSUB 3500 

3090 NEXT II: RETURN 

3500 PLOT 121,3 

3518 PLOT I25,14:DRAWT0 126,10 

3530 PLOT 124,14:DRAMT0 125,0 

3550 PLOT 123,14:DRAMT0 123,0 

3578 PLOT 122,ll:DRAMT0 121,4 

3598 RETURN 

4880 SEN5="HE FEELS SHE HAS A SAFE LEA 

SE.":GOTO 1988 

4818 SEN5="ANDY MUST GIVE MY BAND A HA 

ND.":GOTO 1988 

4828 SEH$="SHE IS STILL AT THE LAKE SI 

TE.":GOTO 1900 

4038 SEN$="THERE IS A QUICK QUIZ FOR H 

IM.":GOTO 1900 

4840 SEN$="JUST SOME OF US HAVE TO DO 

IT.":GOTO 1998 

4050 SENS="TWO OF THE GIRLS ARE HERE N 

OM.":GOTO 1988 

4868 SEN$="JAHE STARTS HER TALK AT THR 

EE.":G0T8 1988 

4878 SEN$="TRY NOT TO LOOK AT YOUR HAN 

DS.":GOTO 1988 



:IF CI/2J=INT 



4888 SEN$="HE DID SEEK AID F8R THE TRU 

CK.":GOTO 1989 

4999 SEN$="CHECK THE PAPER FOR ANY MAR 

K5.":G0T0 1980 

4199 SEN$="IT IS THIS DESK FILE HE SEE 

K5.":G0T0 1908 

4118 SEN$="HE KNOWS HE MUST KEEP MORKI 

NG.":GOTO 1908 

4120 5EN$="WE MOULD GIVE HIM A GOOD MA 

GE.":GOTO 1900 

4130 SEN$="BRING ALL BOOKS TO THE TABL 

ES.":GOTO 1900 

4140 5EN$="I HOPE THAT TAX DOES NOT PA 

5S.":G0T0 1988 

4158 SEN$="GREG BROUGHT IN A LARGE CHE 

CK.":G0T0 1980 

4160 SENS="IT IS UP TO THEM TO WORK HA 

RD.":GOTO 1988 

4170 SENS="PUT A LITTLE MORE EFFORT HE 

RE.": GOTO 1900 

4180 SEN$="HAVE A GOAL; WORK TO REACH 

IT.": GOTO 1980 

4190 SENS="ALL GLAD DADS HAD A GLASS J 

AR.":GOTO 1900 

4208 SEH$="IT IS HOW WE WORK THAT COUN 

T5.":G0T0 1908 

4210 5EN$="T0M MAS QUICK TO SEND THE B 

OX.":GOTO 1908 

4228 SEN$="REX WILL HAVE MUCH MORE TO 

DO.":GOTO 1908 

4230 SEN$="I WILL GO TO TOWN TO GET TH 

EM.":GOTO 19O0 

4240 SEN$="HE CAN LEND A HAND TO THE B 

OY.":GOTO 1988 

4258 SEN$="I PAID THE MEN FOR THEIR MO 

RK.":GOTO 1988 

4268 SEN$="THE WORKER SAID HE STRUCK 

IL.":GOTO 1988 

4278 SEN$="SHE SAID WE NEED A NEW CAMP 

ER.":GOTO 1900 

4280 SEN$="I BOUGHT THE BIG BOX OF BOO 

K5.":G0T0 1908 

4299 5EN$="WE SHOULD SET A GOAL FOR TH 
EM.":GOTO 1908 

4300 SEN$="TRY TO TYPE ALL THE BIG MOR 
DS.":GOTO 1900 

4310 SEN$="WE MAY QUIT THIS WORK AT FI 

VE.":GOTO 1908 

4328 SEN$="YOU HAVE TO WORK FOR TWO DA 

YS.":GOTO 1988 

4338 SEH$="TRY TO GET ONE OR TWO OF TH 

EM.":GOTO 1988 

4348 5EN$="Y0UR BEST MEN WILL HELP DO 

IT.": GOTO 1988 

4358 SEN$="HAVE THE BOYS DO THE WORK N 

OW.":GOTO 1988 

4368 SEN$="LET HIM PROVE THE RIGHT THI 

NG.":GOTO 1988 

4378 SEH$="THEY SHOULD READ MY GOOD BO 

OK.":GOTO 1988 

4388 SEN$="SHE CAN DO A BIG JOB THE BE 

ST.": GOTO 1988 

4398 SEN$="DAVE MADE A CAGE FOR HIS PE 

TS.":GOTO 1988 

5888 GRAPHICS 7: COLOR 1 

5895 COLOR 1 

5018 FOR Y=20 TO 25 

5O20 PLOT 55,Y:DRAMT0 88, Y 

5848 NEXT Y 

5850 FOR Y=26 TO 37 

5868 PLOT 60,Y:DRAWT0 65, Y 

5880 PLOT 83,Y:DRAWT8 88, Y 

5188 NEXT Y 

5118 FOR Y=38 TO 58 

5128 PLOT 69,Y:DRAWT0 130, Y 

5140 NEXT Y 

5150 FOR Y=34 TO 37 

5168 PLOT 97,Y:DRAWT0 103, Y 

5188 NEXT Y 

5198 PL8T 98,33:DRAHT8 182,33 

5210 PLOT 100, 32 -.PLOT 122,38 

5230 DRAWTO 118,18 

5248 DRAWTO 122,15 

5250 DRAWTO 126,15 

5268 DRAWTO 138,18 

5278 DRAWTO 126,38 

5280 COLOR 2 
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5290 PLOT 59,58:DRAMT0 50,58 

5310 FOR X=43 TO 13 STEP -1 

5320 PLOT X,40:DRAHT0 K,58 

5340 NEXT X 

5350 COLOR 3 

5360 X1=120:V1=56 

5370 GOSUB 6000 

5380 X2=80:Y2=48 

5390 GOSUB 6500 

5332 X3=37:Y3=53:G0SUB 6200 

5335 X3=27:Y3=53:G05UB 6200 

5400 FOR 11=2 TO 4 

5410 PLOT 11*10,33 

5420 DRAMTO 11*10+8,33 

5430 PLOT 11*10+2,38 

5440 DRAMTO 11*10+7,38 

5450 PLOT 11*10+3,37 

5460 DRAMTO 11*10+7,37 

5470 PLOT 11*10+5,36 

5480 NEXT II 

5430 RETURN 

6000 PLOT XI, Yl 

6O10 DRAMTO X1+4,Y1 

6020 DRAMTO Xl+7,Yl+3 

6030 DRAMTO Xl+7,Yl+7 

6040 DRAMTO X1+4,Y1+10 

6050 DRAMTO X1,Y1+10 

6060 DRAMTO Xl~3,Yl+7 

6870 DRAMTO Xl~3,Yl+3 

6080 DRAMTO XI, Yl 

6030 RETURN 

6280 COLOR 3 

6205 PLOT X3,Y3 

6210 DRAMTO X3+4,Y3 

6220 DRAMTO X3+6,Y3+2 

6230 DRAMTO X3+6,Y3+6 

6240 DRAMTO X3+4,Y3+8 

6250 DRAMTO X3,Y3+8 

6260 DRAMTO X3~2,Y3+6 

6270 DRAMTO X3~2,Y3+2 

6280 DRAMTO X3,Y3 

6230 PLOT X3+2,Y3+4 

6300 RETURN 

6500 PLOT X2,Y2 

6510 DRAMTO X2+6,Y2 

6520 PLOT X2+7,Y2+1 

6530 PLOT X2+8,Y2+1 

6540 PLOT X2+3,Y2+2 

6550 PLOT X2+10,Y2+3 

6560 PLOT X2+ll,Y2+4 

6570 PLOT X2+ll,Y2+5 

6580 PLOT X2+12,Y2+6 

6530 DRAMTO X2+12,Y2+12 

6600 PLOT X2+11,Y2+13 

6610 PLOT X2+11,Y2+14 

6620 PLOT X2+10,Y2+15 

6630 PLOT X2+3,Y2+16 

6640 PLOT X2+8,Y2+17 

6650 PLOT X2+7,Y2+17 

6660 PLOT X2+6,Y2+18 

6670 DRAMTO X2,Y2+18 

6680 PLOT X2-1,Y2+17 

6630 PLOT X2-2.Y2+17 

6700 PLOT X2-3,Y2+16 

6710 PLOT X2-4,Y2+15 

6720 PLOT X2-5,Y2+14 

6730 PLOT X2-5.Y2+13 

6740 PLOT X2-6.Y2+12 

6750 DRAMTO X2-6,Y2+6 

6760 PLOT X2-5,Y2+5 

6770 PLOT X2-5,Y2+4 

6780 PLOT X2-4,Y2+3 

6790 PLOT X2-3,Y2+2 

6880 PLOT X2-2,Y2+1 

6810 PLOT X2-1,Y2+1 

6820 PLOT X2+3,Y2+3 

6830 DRAMTO Xl+2,Yl+5 

6840 RETURN 

7800 POSITION 3,3:PRINT 1*6; "TYPING" 

7020 POSITION 3,5:PRINT tt6; "TRAINER 1 

7040 SOUND 0,50,10,8 

706O FOR D=i TO 50:NEXT D 

7090 SOUND 0,0,10,8 

7100 SOUND 0,50,10,8 

7120 FOR 0=1 TO 25: NEXT D 

7130 SOUND 8,0,10,8:SOUND 0,50,10,8 

7140 FOR D=l TO 25:NEXT D 



7150 SOUND 0,42,10,8 

7170 FOR D=l TO 58: NEXT D 

7200 SOUND 0,0,10,0 

7210 SOUND 0,42,10,8 

7230 FOR D=l TO 25: NEXT D 

7240 SOUND 0,50,10,8 

7260 FOR D=l TO 25:NEXT D 

7270 SOUND 0,63,10,8 

7230 FOR D=l TO 25: NEXT D 

7300 SOUND 0,0,10,8:S0UND 0,63,10,8 

7310 FOR D=l TO 25:NEXT D 

7320 SOUND 0,56,10,8 

7340 FOR D=l TO 25: NEXT D 

7350 SOUND 0,0,1O,8:SOUND 0,56,10,8 

7360 FOR D=l TO 25: NEXT D 

7370 SOUND 0,50,10,8 

7410 FOR D=l TO 50: NEXT D 

7420 SOUND 0,63,10,8 

7430 SOUND 1,127,10,2 

7440 SOUND 2,101,10,2 

7450 FOR D=l TO 100:NEXT D 

7460 SOUND 0,0,10,0 

7470 SOUND 1,0,10,0 

7480 SOUND 2,0,10,0 

7490 RETURN 

8000 GRAPHICS 

8010 PRINT :PRINT 

8020 PRINT "YOU MILL SEE A SENTENCE" 

8830 PRINT "ON THE SCREEN." 

:PRINT "TYPE AND ENTER IT." 
: PRINT "IF IT IS CORRECT," 
"THE TRAIN MHISTLE MILL BLO 



8040 PRINT 
8050 PRINT 
8060 PRINT 
M." 

8065 PRINT 
YOU MILL" 

8066 PRINT "HAVE TIME TO CHECK YOUR TY 
PING." 
8070 PRINT 
OUR SCORE" 

8080 PRINT "AFTER EACH SENTENCE." 
8030 PRINT : PRINT "AFTER TEN SENTENCES 



: PRINT "IF IT IS INCORRECT, 



: PRINT "YOU MILL BE SHOMN Y 



8100 PRINT "YOUR FINAL SCORE IS SHOMN. 



8128 
8130 

tl 

8140 
8145 
8146 
8147 
8150 
8160 
30O0 
9010 
9020 
9030 
9040 
9070 
9080 



PRINT : PRINT 
PRINT "PRESS 



RETURN' TO CONTINUE 



B=PEEKC7643 : IF B<>12 THEN 8140 

SOUND 8,23,10,8 

FOR D=l TO 10:NEXT D 

SOUND 0,0,10,0 

POKE 764,255:B=255 

RETURN 

GRAPHICS 18 

POSITION 2,3 

PRINT «6; "RIGHT", RS 

POSITION 2,5 

PRINT tt6;"MR0NG",MS 

GOSUB 7040 

RETURN 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 640,5,840,793,174,607,883,64,5 

30,317,817,464,452,440,129,7735 

239 DATA 725,450,983,722,456,5,725,462 

,22,569,433,132,605,131,297,6717 

280 DATA 648,797,529,544,574,583,508,5 

03,494,221,836,830,473,154,371,8651 

440 DATA 421,10,892,898,734,599,137,31 

4,957,510,972,506,704,78,347,8879 

1010 DATA 456,568,468,785,718,125,543, 

534,489,373,356,618,247,334,329,8743 

2080 DATA 500,714,75,289,708,867,537,1 

,796,318,377,658,939,275,155,7193 

3070 DATA 893,758,986,727,520,518,522, 

807,631,817,116,872,875,959,913,18834 

4070 DATA 154,738,328,707,361,772,31,3 

87,305,747,41,774,711,356,15,9533 

4220 DATA 301,20,757,28,124,753,764,32 

4,68,41,332,13,971,923,988,8287 
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4370 DATA 959,698,818,988,651,559,484, 

544,588,477,497,543,588,576,547,9493 

5158 DATA 588,599,551,518,536,352,347, 

352,353,363,656,683,320,485,558,7245 

5358 DATA 657,34,949,205,961,382,387,3 

38,299,21,398,19,400,19,485,5466 

5480 DATA 748,888,136,698,730,735,975, 

580,732,729,298,798,651,156,714,9480 

6220 DATA 743,748,747,778,745.742,316, 

662,798,153,722,669,673,679,523,9698 

6560 DATA 528,532,537.982,722.724,725, 

531,532,538,531,630,519,523,517,8983 

6710 DATA 518,519,517,518,762,685,684, 

680,676,665,663,682,747,817,597,9738 

7828 DATA 897,341,528,496,348,515,45,5 

17,344,524,477,343,519,347,522,6747 

7278 DATA 356,525,54,528,354,523,59,52 

5,353,527,357,528,516,296,489,5982 

7478 DATA 491,493,812,56,589,969,673,4 

4,159, 494 , 590 , 861 , 734 , 421 , 423 , 7809 

8180 DATA 155,593,773,106,350,523,494, 

713,882,326,223,278,231,305,961,6825 

9880 DATA 803,883 



Graphics 8 Color Demo 



10 GRAPHICS 8:5ETC0L0R 2 , 0, 15 : 5ETC0L0R 

1,0,0:COLOR 1 
20 FOR X=8 TO 200 STEP 2 
38 PLOT X,8:DRAMT0 X,18 
40 NEXT X 

50 FOR X=l TO 201 STEP 2 
60 PLOT X,20:DRAMTO X,30 
70 NEXT X 
80 FOR X=0 TO 200 
90 PLOT X,40:DRAMTO X,50 
100 NEXT X 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 137,79,108,393,98,207,399,111, 
225,758,2587 
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MOTORCYCLE 
MAZE RIOER 



16K Cassette 24K Disk 



by Charles Bachand 



Maze Rider is a game in which you roar through a 
twisting maze of tunnels on a motorcycle. You are 
hindered in this feat by the fact that your viewpoint 
is from inside the maze. The display is your window 
into the maze. 

In order to play Maze Rider, a joystick must be 
inserted into port #1. After typing RUN the 
program will initialize and generate an introduction 
screen. The program will ask you to respond to 
questions about game options. The first question is 
"Do you want to leave a trail?" If the answer is yes, 
the game will display a line on the ground where you 
have previously traveled. The "Extra Passages" 
option will add more interconnecting passages to the 
maze. The map option allows you to see a map of the 
maze displaying an overhead view of the game area. 
Motorcycle noise can be eliminated in the last option 
if desired. 

Pushing the joystick forward will move you 
forward within the maze. Pulling back on the joystick 
will make you move backward within the maze. 
Pushing the joystick to the left or right will change 
the direction that you are facing. Pushing the joystick 
to the left will make you turn in a counter clockwise 
direction and pushing to the right will make you 
turn in a clockwise direction. If the map option has 
been enabled, pushing the joystick trigger button 
will display an overhead view of the maze for about 
ten seconds. 

For the technical types out there who are 
interested in how things work, the maze in this game 
is generated using a modified random walk routine 
that stores the X and Y locations it has traveled to 
into two tables, which are stored on page six of the 
computer's memory. As the cursor walks along, 
generating the maze, the X axis is stored at XPNT+ 
PNTR. The index variable PNTR is then 
incremented by one. This operation continues until 
it runs into a dead end. At this point the program 
starts backtracking back to its origin. The index 
variable PNTR is decremented by one and the last X 
and Y coordinates are pulled from their locations in 
page six. The program then does LOCATEs up, 



down, left and right, looking for an unused space. If 
the program detects such a space around the cursor, 
the maze drawing process is turned back on. The 
cursor continues to advance and retreat until it 
bumps into its origin. □ 

Line Explanation 

100-640 Generates maze 

640-830 Draws maze interior 

840-1060 Main program routine 

1070-1110 End of game. 

1120-1130 Draws map of maze 

1 140 Draws outline of maze 

1150-1230 Title and options select 

1240 Perspective view data 



180 REM *** MOTORCYCLE MAZE RIDER *** 

110 REM * COPYRIGHT 1988 C . BACHAND * 

120 REM 

130 REM *** FOR ANALOG MAGAZINE *** 

140 REM 

158 T0P=PEEK{1863 :SHITCH=0 

160 G05UB 1150:GOSUB 1140 

170 PRINT "+»** GENERATING MAZE GRID * 

*■' 

180 XC = INTCRNDCZ3*tCmDTH-33/23 3*2 + 3 

190 YC=INT{RNDt03*tCLENGTH-33/23 3*2+3 

200 EX=XC:EY=YC:XPNT=1536:YPNT=1632 

210 SETC0L0R 1,0,14 

228 COLOR 2: PLOT XC,YC: COLOR 1 

238 LHG=INT(RND (03*33*2+2 

240 DIR=INT(RHD (03*43 

250 S=fDIR=03-CDIR=13 

260 T=CDIR=23-£DIR=33 

270 FOR 1=2 TO LNG 5TEP 2 

280 LOCATE XC+S*I , YC+T*I, P 

298 IF P AND 1=2 THEN POP :G0T0 230 

30O IF P THEN POP :LNG=2:G0T0 250 

310 NEHT I:XC=XC+S*LNG:YC=YC+T*LNG 

328 IF PNTR>PMAX THEN PMAX=PNTR : MX=XC : 

MY=YC:M5=5:MT=T 

338 DRAWTO XC, YC : PNTR=PNTR+1 

348 SOUND 8,D2-PNTR*8,1B,8 

350 POKE XPNT+PNTR,XC 

360 POKE YPNT+PNTR,YC 

370 G05UB 600: IF P THEN 398 

380 SOUND 0,D2-PNTR*8,i0,2:GOTO 230 

398 XC=PEEKCXPNT+PNTR3 

488 YC=PEEKCYPNT+PNTRJ 

418 PNTR=PNTR-1:G0SUB 688 

428 SOUND 8,D2-PNTR*8,18,8 

438 IF P AND PNTR THEN 398 

448 POKE 77,Z:50UND 8 . D2-PNTR*8 , 18, 2 



PAGE 118 



THE A.N.A.L.O.G. COMPENDIA 



VOL. 1 



458 PLOT XC.YCHF PMTR THEN 236 

468 COLOR 3:PL0T MX,MY:COLOR 1 

478 MAP=ADRCMAPS) HF 1-EXTRA THEN 538 

488 FOR 1=1 TO 25 

498 XC=INTCRNDC0)*CWIDTH-4))+3 

588 YC=INTCRNDC8)#CLENGTH-4))+3 

518 ¥=CXC4YC)/ , 2:IF INTtY3=Y THEN 490 

528 PLOT XC, YCiNEXT I 

530 SOUND 0,0,0,O:FOR Y = l TO LENGTH 

540 FOR X=I TO WIDTH ; LOCATE X,Y,P 

550 POKE MAP+Y*40+X.P:NEXT XlNEXT Y 

568 3=-MSlT=-MT:M5=8lF0R 1=8 TO 6 

578 READ X:POKE XPNT + I . X I NEXT IlP3=0 

588 YPNT=XPNT+8lP0KE YPNT-1.79 

598 FOR 1=8 TO 6:PCKE VPKT+I , 79- I PEEK ( 

XPNT+I) +PEEKCXPNT+I-13J/4: NEXT I: GOTO 

848 

688 LOCATE XC+2.YC,Pi 

618 LOCATE XC~2,YC,P2 

628 LOCATE XC,YC+2,P3 

638 LOCATE XC,YC~2,P4 

648 P=Pi AND P2 AND P3 AND P4:RETURH 

658 Pi=8:GRAPHIC5 61SETCGLOR I,0,14lPG 

KE 752,1: PRINT :PRIHT "►LOOKING ";A$," 

MOUES ";HOUE:MOUE=MOVE+i 

668 FOR YC=0 TO 6 I P2 = NR CI , YC) 

678 IF P2=2 THEN G05UB 838 

688 IF NOT P2 THEN POP :GOTO 830 

698 X1=P1:X2=PEEKCXPNT+YC> :P1=X2 

788 IF FEET AND YC THEN IF P2=3 AND NR 

Ci,YC-I)=3 THEN PLOT 79, PEEK (YPNT+YC-1 

):DRAWTO 79,PEEKCYPNT+YC) 

718 FOR XC=8 TO 2 STEP 2 

728 IF XC THEN XI=158~XI : X2=158-X2 

738 XDl=Xl/2:XD2=X2/2 

740 IF NRCXCYC) THEN 768 

758 PLOT X1,XD1:DRAWT0 X2,XD2:PL0T XI, 

?9~XD1; DRAWTO X2, 79-XD2 : GOTO 798 

768 PLOT X1,XD1:DRAWT0 XI , 79-XD1 : PLOT 

Xi,XD2:DRAWT0 X2,XD2:PL0T X1,79~XD2:DR 

AWTO X2,79-XD2 

778 IF NRC1,YC+1) THEN DRAWTO X2,XD2 

788 GOTO 880 

798 P2=NRCI,YC+1) 

DRAWTO X2,XD2 
888 IF FEET THEN IF YC AND NRCXC,YC)=3 

THEN PLOT 79, PEEK (YPKT+YC) :DRAWTO XI, 
PEEKCYPNT+YC3 
818 NEXT XC:NEXT YC:IF 
EN IF NRC0,6) OR NRC2,6) THEN PLOT 79, 
39IPL0T 79,48 
828 RETURN 
838 PLOT X2,XD2:DRAWT0 159-X2 , XD2 : PLOT 

X2,79-XD2: DRAWTO 159-X2, 79-XD2 : RETURN 
840 SOUND i,258,2,SN5>*4lC0LOR i'.MAP = AD 
RCMAPS3HF TOi THEN 868 

858 FOR XC=-1 TO I I FOR YC=8 TO 7 I NR CXC 
+ 1 , YC) =PEEK CHAP* (MY + YC)*48 + KX-XC3 : NEXT 

YCiNEXT XC:A$ = "SOIJTK"SG0TO 928 
868 IF TO-1 THEN 888 

870 FOR XC = -1 TO IlFOR ¥C = 8 TO 7:NRtXC 
+l,YC3=PEEKtMAP+tMY-YC)*48+MX+XC3 :NEXT 

YCINEXT XClA5="N0RTH"lG0T0 928 
888 IF 5<>-i THEN 988 

898 FOR XC=-i TO 1 i FOR YC=8 TO 7:NRCXC 
+1,YC3=PEEK(HAP+CMY-XC)*48+MX-YC) :NEXT 

YC:NEXT XC I AS="W£5T" ;GOTO 928 
988 IF 3<>1 THEN 920 

918 FOR XC=-1 TO i:FOR YC=8 TO 7 I NR CXC 
+ 1, YC3 =PEEK CHAP + tMY + XC3*48+MX + YC) ! NEXT 

YCiNEXT XClAS="EA5T" 
928 POKE 54286,8:5WITCH=16-5WITCH:P0K£ 

186,T0P-SWITCHlG05UB 550IP0KE 54286,6 
4IP0KE 77,8 

938 IF STICK C0)<13 THEN 930 
948 IF 5TRIGC0) OR MAPSW=0 THEN 980 
958 IF P3>2 THEN SOUND 8,58 , 12 , 6 I PRINT 

"** ►THREE LOOKS 15 YOUR LIMIT" I FOR 1= 
1 TO I06INEXT HGOTO 988 

968 GOSUB 1140lP3=P3+l ISETCOLOR 1,0,14 
IPRIHT "4 ►CHECK MOTORCYCLE MAZE HAP «" 
;P3lG0SUB 1120 
978 FOR X=l TO lOlFOR P = l TO 4 1 FOR 1 = 1 

TO 10: NEXT I I COLOR P: PLOT MX, MY I NEXT 
PlNEXT XlSOUND 0,0,6,016010 848 
988 SOUND 8,0,8,0lP=5TICKt0) : IF P=i5 
R P=5 OR P=6 OR P=9 OR P=18 THEN 940 



IF P2=0 OR P2=2 THEN 



NOT NRCI,7) TH 



998 IF P=14 THEN MX=MX+S I MY=MY+T I SOUND 
8,128,6,SND*6HF NOT PEEK CMAP+HY*48+ 
MX) THEN MX=MX-S:MY=MY-TlP=8 
1080 IF P=13 THEN MX=KX-S I MY=MY~T I SOUN 
D 0,128,6,5HD*6lIF NOT PEEK CMAP+MYK46 
+MX) THEN MX=MX+5:MY=MY+TlP=0 
1010 IF P=7 8R P=ll THEN P1=S I S=-T I T=P 
1 

1020 IF P=ll THEN S=-S:T=-T 
1838 IF P=0 THEN PRINT "«* ►►CRASH ! ! " I F 
OR P=15 TO 8 STEP -ilSOUND 8, 120, 12, P: 
FOR 1=1 TO 5INEXT UNEXT P:P=0:MS=8 
1040 I=MAP+KY*40+MX:IF PEEK CI) =2 THEN 
1878 

1858 POKE I,3IIF P THEN 848 
1868 GOTO 948 

1878 PRINT "**►***## YOU ARE FREE **** 
*":FOR X=l TO 5IF0R Y=280 TO STEP -4 
1080 SOUND Z,Y,10,X*3:NEXT Y I FOR 1=1 T 
4IPL0T RNDC0)*159,8:DRAWTO RNDC8)«15 
9,79lNEXT UNEXT XlSOUND Z,Z,Z,Z 
1090 POKE 186, TOP 

1100 FOR 1 = 1 TO IO0 1 NEXT UGOSUB 1148 1 
SETCOLOR l,0,14iPRINT "!U ► *** YOU'RE 
FINAL MAP #**■>: G05UB 1120 
1110 POKE 752,0lEND 

1120 MAP=ADR CHAPS) IFOR Y=3 TO LENGTH-2 
IFOR X=3 TO WIDTH-2: COLOR PEEKCMAP+Y*4 
+ X3 

1130 SOUND 8,29O-Y*14-X.10,6:PLOT X,Yl 
NEXT X I NEXT ¥ I RETURN 

1140 GRAPHICS 3IC0L0R UPLOT 1,UDRAWT 
WIDTH, UDRAWTO WIDTH, LENGTH I DRAWTO 1 
,LEHGTH I DRAWTO 1,1 SPOKE 752,URETURN 
1150 GRAPHICS 2I5ETC0L0R 1,8,14:PRINT 
1*6;" / Motorcycle ViPRINT «6;" / 
naze rider v.print »6iopen tti,4,e,"K 



ID2=DP*8 
) ,NRC2,73 
«6; " S AN 

TO LEAVE 
="¥" THEN 

EXTRA PAS 
Y" THEN E 

TO USE TH 
V" THEN M 

MOTORCYCL 
= "¥" THEN 



1160 WIDTH=39lLENGTH=19;DP=96 
1170 DIM MAPSC888) ,ASC5) .CSC1 
1188 PRINT »6 I PRINT »6: PRINT 
ALOG 480/888 3": PRINT »5; M £2 
513 SEES": PRINT »6 

1196 PRINT "«W DO YOU WANT 
A TRAIL"; :GET 81,A;IF CHRS CA) 

FEET=1 
1280 PRINT "Hi DO YOU WANT 
SAGES"; IGET ttl.A.'IF CHR$CA)=" 
XTRA=l:GOTO 1218 
1210 PRINT "*+ DO YOU WANT 
E MAP"; : GET tti,A:IF CHRS CA) = 
APSW=l:GOTO 1220 
1226 PRINT "** DO YOU WANT 
E SOUND"; IGET ttl , A I IF CHRS CA) 

SND=1 
1238 RETURN 
1248 DATA 6,28,46,68,68,74,78 



CHECKSUM DATA 
(See pgs. 7-10) 

108 DATA 973,829,88,789,86,469.439.385 
,484,693,788,697,18,368,835,7853 
259 DATA 747.761,569,387,358.457,828,5 
40,163, 271,171,179,514,336,458,6739 
408 DATA 438,712,267,423,694.456,188,9 
63,158,901,122,719,82,438.631,7096 
558 DATA 867.379.93.341.481,828,838,76 
9,779,958,394,688,285.382,423,8425 
768 DATA 88,115,688.785,415,343,943.76 
8,7 33,983,756,874,601.208,886.8953 
858 DATA 254,789,244,778.417,496,244.3 
17,487.497,589,527,451,885,494.7381 
1800 DATA 548,49,452,784,177,429,896,3 
22,873.159,677.368,241.588,79.6639 
1158 DATA 298,82,185,147.995,426,316,4 
95,788,248,3972 
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DINO BATTLE 



24K Cassette 32K Disk 



by Art V. Cestaro III 



Dino Battle is a game of primordial confronta- 
tion, a fierce battle between two players. See if you 
can defeat a dinosaur! 

Your goal is to bite your opponent's dinosaur on 
the back of the neck. By moving your joystick and 
pressing the firing button, you can move your dino- 
saur and open and close his mouth. You may make a 
number of attempts before you succeed. Try to bite 
your opponent as many times as you can before the 
time is up. 

Your score is displayed on the side of each dino- 
saur at the start of the game. You receive one point 
each time you bite the other dinosaur. □ 



Line Explanation 

Y, Yl Vertical position of dinosaur 1 

3 Sets GRAPHIC mode and colors 

12 Sets time and score 

13-16 Draws landscape 

80-81 Prints text 

100-200 Main loop: checks joystick and 

triggers and increments time 

300-315 Moves dinosaur figures on screen 

1000-1015 Turns dinosaur number 1 around 

1100-1115 Turns dinosaur number 2 around 

3500-3595 Makes dinosaur 1 open his mouth 

and try to bite the other one 

3600-3710 Makes dinosaur 2 do the same thing 

3800 Prints both players' scores 

3900-3905 Plots cacti 

3910-3930 Plots rocks 

4000-4021 Plots dinosaur 1, fall routine 

4500-4531 Plots dinosaur 2, fall routine 

4600 Erases the dinosaur 

4800-4810 Moves dinosaur away from defeated 

opponent 

5000-5990 Plots title 



7000-7110 Opening display 

8000-8220 End of game 

10000-10035 Sets up player/missile graphics 

10040-1 1000 Reads shape data and stores it in the 

proper arrays 
12000-12900 Data for shapes 



Name 

Time 

Score 1 

Score 2 

TT 

X 

X2 

DR1 

DR2 

DF1 

DB1 
DF2 
DB2 
Y, Yl 

Y2, Y3 



Variable 

Time in seconds of the game 
Players' scores 

Timing variable 

Horizontal position of dinosaur 1 
Horizontal position of dinosaur 2 
Direction dinosaur 1 is facing 
Direction dinosaur 2 is facing 
Area in memory where player data 
is poked 



Vertical position of dinosaur 1 
Vertical position of dinosaur 2 

RT, RET, RT1 Return Flags 

G, H, DD Dummy variables 

C,Z, 

I 



Top of RAM: used for setting up 
player/missile area 

Arrays 

Flying dinosaur's front 
Flying dinosaur's back 

Dinosaur front and back views 



TF1, TF2 

TBI, TB2 

D1NF1 

D1NF2 

D1NB1 

D1NB2 

DHR Dinosaur's head and mouth open 

Each dinosaur is made up of two players, positioned 

next to each other so they make up one dinosaur 

shape. □ 
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e rem EnncEHHai rev i.o 

1 REM By Art U Cestaro III 18/13/81 

3 GRAPHICS 7:CLR :POKE 752,1:P0KE 712, 

197:P0KE 718,24:P0KE 788,99:P0KE 789,1 

35 

6 G05UB 3938 

12 TIHE=59 : TIM=:8 : SC0RE1=6 : 5C0RE2=8 : COL 
OR 1 

13 V=INTCRNDC8J*35+18J :D=l:FOR X=8 TO 
158 STEP 2:Y1=INTC15*RNDC0J+Y-5*DJ :PL0 
T X,47:DRAHT0 X,Y:PL0T X+1,47 

14 DRAMTO X+l, CV+Vl)/2:Y=Vl:IF Y>48 TH 
EM Y=Y-18:D=2 

15 IF Y<28 THEN Y=Y+18:D=i 

16 NEXT X 

17 GOSUB 3988:G0SUB 3918 
38 GOSUB 7888 

75 RET=8:G0SUB 18880:G0SUB 1888:G0SUB 
1186 

8 8 POKE 75 2,1:P0KE 656, 8 '.POKE 657,3:? 
"T" SPOKE 656, 8: POKE 657,28:? " 



SCORE 
SCORE 



81 POKE 656,8:P0KE 657,12:? "U*U*|": 
POKE 656,8:P0KE 657,27: ? " I 4+ 1 + + I " : POK 
E 656,0:P0KE 657,16:' "WUSEMmf' 

82 GOSUB 3888 

188 TT=TT+6.2:IF TT>1 THEN TT=8:TIME=T 
IKE-llIF TIHE<1 THEN TIME=59 : TIM=TIM~1 

184 IF STICKC8J=7 THEN X=X+2:IF DR1=1 
THEN GOSUB 1668 

185 IF 5TRIGC8J=6 THEN RT=6 : GOSUB 3588 
118 IF STICKC1J=7 THEN X2=X2+2 : IF DR2= 
2 THEN GOSUB 1118 

111 IF X<55 THEN X=55 

112 IF X>195 THEN X=195 
115 ON DRl GOSUB 386,385 

128 IF STICKC1J=11 THEN X2=X2~2:IF DR2 
=1 THEN GOSUB 1168 

138 IF STICKC8J=11 THEN X=X~2:IF DR1=2 
THEN G8SUB 1818 

132 IF STRIGC1}=6 THEN RT1=6:G0SUB 368 
6 

133 IF X2<55 THEN X2 = 55 

134 IF X2>195 THEN X2=195 

135 ON DR2 GOSUB 310,315 

169 IF TIM<1 AND TIME<2 THEN POKE 656, 

2:P0KE 657,18:? "Oiee-'lGOTO 8666 

172 IF TIME<16 THEN POKE 656,2:P0KE 65 

7,18:? TIM^^O'^TIMEiGOTO 186 

175 POKE 656,2:P0KE 657,18:? TIM;":";T 

IME;" " 

188 POKE 77,6 

286 GOTO 168 

366 POKE 53248, XiPOKE 53249, X-8 : RETURN 

385 POKE 53249, X-8:P0KE 53248, X : RETURN 

318 POKE 53256,X2-8:P0KE 53251, X2 :RETU 

RN 

315 POKE 53251, X2:P0KE 53258, X2-8 : RETU 

RN 

1686 0R1=2:F0R G=l TO 4:P0KE DB1+G,6:N 

EXT G:Y=65:Y1=69:0F1-Y+J:DB1=Y1+J1:F0R 

G=l TO 18:P0KE DB1+G,DIN81 CGJ 
1685 POKE DF1+G,DIHF1(GJ :NEXT G:FOR G= 
19 TO 22:P0KE DF1+G, DINF1 CGJ :MEXT G : RE 
TURN 

1816 DRl=l:FOR G=l TO 4:P0KE DF1+G,0:H 
EXT G:Y=69:Y1=65:DF1=Y+J:DB1=Y1+J1:F0R 

G=l TO 18:P0KE DF1+G,DINB2CGJ 
1815 POKE DB1+G,DINF2CGJ : NEXT G : FOR G= 
19 TO 22-.P0KE DBi+G , DINF2 CGJ : NEXT G : RE 
TURN 

1180 DR2=2:F0R G = l TO 4 : POKE DB2+G.8:N 
EXT G : Y2=65 : Y3=69 : DF2=Y2+ J2 : DB2=Y3+ J3 : 
FOR G=l TO 18:P0KE DF2+G, DINF2 CGJ 
1185 POKE DB2 + G,D1NB2CG) ;NEXT G:FOR G= 
19 TO 22:P0KE DF2+G,DINF2 CGJ :NEXT G : RE 
TURN 

1118 DR2=l:F0R G = l TO 4 : POKE DF2+G,0:N 
EXT G:Y2=69:Y3=65:DF2rY2+J2:DB2=Y3+J3: 
FOR G=:l TO 18:P0KE DF2+G, DINB1 CGJ 
1115 POKE DB2+G,DINF1CGJ :NEXT G : FOR G = 
19 TO 22:P0KE DB2+G, DINF1 CGJ : NEXT G : RE 
TURN 

3586 ON DRl GOTO 3516,3526 
3510 BB=DBl:GG=3590:GOTO 3558 
3526 BB=DFl:GG=3586 
3556 GOSUB GG 



3555 FOR G=56 TO 186:S0UND 8,G,16,15:S 

6UND 6,188-CG-58J ,18,15:NEXT G : SOUND 8 

,8,6,6 

3566 ON DRl GOTO 3563,3565 

3563 POKE BB,8:F0R G=l TO 6:P0KE BB + G, 

DINF2CGJ :NEXT G:GOTO 3591 

3565 POKE BB,B:F8R G=l TO 6:P0KE BB+G, 

DINF1CGJ :NEXT G:GOTO 3591 

3576 RETURN 

3586 POKE BB+6,224:F0R G=8 TO 5:P0KE B 

B+G,DHRCG+1J :NEXT G: RETURN 

3590 POKE BB+6,7:F0R G=8 TO 5:P0KE BB+ 
G,DHLCG+1J :NEXT G:RETURN 

3591 IF RT=1 THEN RETURN 

3592 IF DR1=2 AND DR2=i AND PEEK C53268 
J=12 THEN GOSUB 4560 

3593 IF DR1=1 AND DR2=2 AND PEEK (53261 
J =12 THEN GOSUB 4560 

3595 POKE 53278, 6: RETURN 

3666 ON DR2 GOTO 3618,3628 

3616 BB=DB2:GG=3588:G0T0 3656 

3626 BB=DF2:GG=3596 

3650 GOSUB GG 

3655 FOR G=56 TO 160: SOUND 8, G, 10,15:5 

OUND 6,188-CG-58J ,12, 10: NEXT G : SOUND 8 

,6,6,8 

3666 ON DR2 GOTO 3663,3665 

3663 POKE BB,8:F0R G=l TO 6:P0KE BB+G, 

DINF1CGJ :NEXT G:GOTO 3788 

3665 POKE BB,6:F0R G=l TO 6:P0KE BB+G, 

DINF2CGJ :NEXT G 

3706 IF RT1=1 THEN RETURN 

3761 IF DR2=2 AND DR1=1 AND PEEKC53262 

1=3 THEN GOSUB 4086 

3785 IF DR2=1 AND DR1=2 AND PEEKC53263 

1=3 THEN G6SUB 4688 

3718 POKE 53278, 6: RETURN 

3866 POKE 656,2:P0KE 657,6:? SC0RE1;" 

":POKE 656,2:P0KE 657,31:? SC0RE2;" 
" : RETURN 

3966 COLOR 2 : FOR J=l TO 4 : H=INT C45+RND 
C8J*18J :G=RND (81*145+18 :GOSUB 3983:NEX 
T J: RETURN 

3981 DRAMTO G+2, H+5 : DRAWTO G+2,H+3:RET 
URN 

3963 PLOT G,H:DRAMTO G,H+9:PL0T G,H+4: 
DRAMTO G-2,H+4:DRAMT0 G-2,H+1:PL0T G,H 
+ 5 

3965 DRAMTO G+2, H+5 : DRAMTO G+2,H+3:RET 
URN 

3910 COLOR l:FOR J=l TO 3 :H=48+RND COJK 
18:G=RNDC8J*145+18:G6SUB 3913:NEXT J:R 
ETURN 

3911 DRAMTO G+5, H+5 : DRAMTO G+3,H+9:RET 
URN 

3913 PLOT G,H:DRAMTO G-5, H+5 : DRAMTO G+ 

3,H+9:DRAHT0 G,H:DRAMTO G+4,H+1 

3915 DRAMTO G+5, H+5 : DRAMTO G+3,H+9:RET 

URN 

3930 COLOR 3:F0R G=79 TO 47 STEP -1:PL 

OT 8,G:DRAMT0 159,G:NEXT G:RETURN 

4686 BBl=DFl:BB2=DBl:G0SUB 4688 

4003 Y=75:Y1=74:DF1=Y+J:DB1=Y1+J1 

4685 ON DRl GOSUB 4016,4628 

4866 RT1=1: GOSUB 3686:G0T0 4816 

4816 FOR G=l TO 9:P0KE DB1+G, DLF CGJ :P0 

KE DF1+G,DLBCGJ : SOUND 0, 120, 8, 15-G : HEX 

T G 

4011 POKE DF1+16,DLBC16J IPOKE DF1+11,D 

LBC11J:F0R G=l TO 6:50UND 6, 126, 8, 15-G 

:FOR HH = 1 TO 10:NEXT HH : NEXT G : RETURN 

4620 FOR G=l TO 9 i POKE DB1+G, DRB CGJ : PO 
KE DF1+G,DRF CGJ : SOUND 6, 120, 8, 15~G : NEX 
T G 

4621 POKE DB1+10,DRBC18J IPOKE DB1+11,D 
RBC11J:F0R G=l TO 6 : SOUND 6,126,8,15-G 
:FOR HH=1 TO 10:NEXT HH:NEXT G:RETURN 
4560 BB1=DF2:BB2=DB2:G0SUB 4606 

4583 Y2=74 : Y3=75 : DF2=Y2+ J2 : DB2=Y3+ J3 
4565 ON DR2 GOSUB 4528,4538 
4516 RT=l: GOSUB 3560: GOTO 4860 

4520 FOR G=l TO 9 : POKE DF2+G, DRB CGJ : PO 
KE DB2+G,DRFCGJ : SOUND 0, 110, 8, 15~G : NEX 
T G 

4521 POKE DF2+10,DRBC10J :POKE DF2+11,D 
RBC11J:F0R G=l TO 6 : SOUND 8, 118, 8, 15-G 
:FOR HH=1 TO 10: NEXT HH : NEXT G: RETURN 
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4530 FOR G=l TO 9:P0KE DB2+G, DLB CGJ : PO 
KE DF2+G,DLFCGJ : SOUND 0, 118, 8, 15~G : HEX 
T G 

4531 POKE DB2+10,DLBC16J :POKE DB2+11.D 
LBC11J:F8R G=l TO 6:S0UND 8,118, 8, 15-G 
:FOR HH=1 TO 18:NEXT HH:NEKT G:RETURN 
4688 FOR G=l TO 22 : POKE BB1+G,8:P0KE B 
B2+G,0:NEXT G:RETURN 

4888 X=INTCRNDC0J*145+50J : OK DR1 GOSUB 
388 , 385 : GOSUB 1188 : SCORE1=SCORE1+10 : G 

OSUB 3880:RETURN 

4818 X2=IHTCRNDC0J*145+50J : OH DR2 GOSU 

B 318,315:G0SUB 1888 :SC0RE2rSC0RE2+18 : 

GOSUB 3888:RETURN 

5888 COLOR 1:PL8T 2G,5:DRAKT0 26,15:PL 

OT 26,5:DRAMT0 31,6:DRAMT0 31,14:DRAMT 

26,15:G0T0 5938 

5188 PLOT 36,5:DRAMT0 36,15:PL0T 35,5: 

PLOT 37,5:PL0T 35,15:PL0T 37,15:G0T0 5 

998 

5288 PLOT 42,15:DRAMT0 42,5:DRAMT0 46, 

15:DRAMT0 46,5:G0T0 5998 

5388 PLOT 58,5:DRAMT0 58,15:DRAUT8 55, 

15:DRAHT8 55,5:DRAMT0 58,5:G0T0 5998 

5488 PLOT 66,5:DRAMT0 66,15:DRAHT0 71, 

15:DRAWT0 71,5:DRAUT0 66,5:PL0T 66,18: 

DRAHTO 71,18: GOTO 5998 

5588 PLOT 76,5:DRAHT0 81,5:DRAMT0 81,1 

5:PL8T 76,5:DRAMT0 76,15:PL0T 76,18:DR 

AMT8 81,18:G0T0 5998 

5688 PLOT 85,5:DRAHT0 91,5:PL0T 88,5:D 

RAWTB 88,15:G0T0 5998 

5788 PLOT 95,5:DRAMT0 181,5:PL8T 98,5: 

DRAMTO 98,15:G8T0 5998 

5880 PLOT 106, 5: DRAHTO 186, 15 : DRAMTO 1 

11,15:G0T0 5998 

5988 PL8T 116,5:DRAMT0 116, 15 : DRAMTO 1 

21,15:PL0T 116,18:DRAMT0 121,18:PL0T 1 

16,5:DRAMT0 121,5:G0T0 5998 

5998 RETURN 

7888 DD=17:DIM TF1 CDDJ , TBI CDDJ , TF2 CDDJ 

, TB2CDDJ 

7005 FOR G=l TO DD : TF1 CGJ =8 : TF2 tGJ =0 : T 

B1CG)=0:TB2(GJ=0:HEXT G 

7010 FOR G=l TO 14: READ C : TF1 CGI =C :NEX 

T GlFOR G=l TO 13:READ C : TBI CGJ =C : NEXT 
G 

702O FOR G=l TO 13:READ C : TB2 CGJ =C : HEX 

T GlFOR G = l TO 14:READ C : TF2 CGI = C : NEXT 
G 

7025 RET=0: GOSUB 1O0O8 

7838 POKE 784,49:P0KE 785,49:F0R G=5 T 

19JP0KE DF1+G,TF1CG-4J :NEXT G : FOR G= 

1 TO 13:P0KE DB1+G,TB1CG) :NEXT G 

7840 FOR X=220 TO 35 STEP ~1:P0KE 5324 
8,X-7:P0KE 53249, X: SOUND 8,X,18,6:F0R 
H=l TO 3:NEXT H:NEXT X 

7045 FOR G=l TO 18:P0KE DF1+G,0:P8KE D 
B1+G,8:NEXT G 

7851 POKE 784,49:P8KE 785,49:F0R G=l T 
13:P0KE DB1+G,TB2CGJ : NEXT G:FOR G=4 
TO 18:P0KE DF1+G,TF2CG-3J :NEXT G 
7868 F8R X=38 T8 210:P0KE 53249, X:POKE 
53248, X+7:S0UND 8,X,10,6 

7062 IF X=75 THEN GOSUB 500O 

7063 IF X=85 THEH GOSUB 5108 

7064 IF X=91 THEH GOSUB 5200 

7065 IF X=103 THEH GOSUB 5300 

7866 IF X-119 THEH GOSUB 5488 

7867 IF X=130 THEN GOSUB 55O0 

7068 IF X=138 THEH G8SUB 5688 

7069 IF X=144 THEH GOSUB 5708 

7870 IF X = 155 THEN GOSUB 5880 

7871 IF X=165 THEH GOSUB 5980 

7075 F8R H = l T8 4:HEXT H:HEXT X 

7880 ? "* ■ i flBHElB BB 331 » » <■ 

":SOUHD 0,98,12,11:S8UHD 1 , 91 , 12, 12 : GO 
SUB 18848 

7885 COLOR 8:F0R G = 5 TO 18:PL0T 25,G:D 
RAWTO 125,G:PL0T 25, 15- CG-5J : DRAMTO 12 
5,15- CG-5) :HEXT G 

7886 SOUND 8 , 88 . 12 . 12 : S8UND 1,81.1 2,14 

7090 ? "H ■ia^HfeUTuJJB'' 

7891 FOR G=l TO 28:G0SUB 7898:HEXT G 

7892 ? "IS PRESS START " 

7893 FOR G=l T8 26:G0SUB 7898:NEXT G:G 
OTO 7830 



7098 IF PEEK (532793 =6 THEH POP 
100 

7099 RETURH 

7100 ? "H 



GOTO 7 



OH OH ... FOOTSTEPS 



H=15 TO STEP - 



8: NEXT 



7101 FOR G=l TO 2: FOR 

1:S0UND 0,128,8,H 

7185 SOUND 1,122,8,H:F0R J=l TO 

J: NEXT H:FOR F=l TO 68: NEXT F 
7107 FOR H=15 TO STEP 1 : SOUND 0,110 
,8,H:S0UND 1,112,8,H:F0R J=l TO 8:NEXT 

J: NEXT H:FOR F=l TO 60: NEXT F:NEXT G 
7118 ? "« M :RETURH 

8000 FOR G-l TO 10: POKE 656,0: POKE 657 
,15:? " GAME OVER ":SOUND 0,158,10,14: 

FOR Z=l TO 15: NEXT Z 

8085 POKE 656,0:P0KE 657,15:? "E3CBB 
HH?J":SOUHD 8,100, 10, 14JF0R H"l TO 15: 
NEXT H:NEXT G 
8089 SO UND 8,0,0,0:P 0KE 656,0:POKE 657 

,13:? ■'■SH^MuT-EM" 

8810 I F SCORE 1> SCORE 2 THEN 8828 
8813 IF SC0RE2>SC0RE1 THEN 8838 
8815 IF SC0RE1=SC0RE2 THEN 8848 

8020 POKE 656,8:P0KE 657,3:? " SCORE 
":FOR H=l TO 15: GOSUB 8180: NE XT H 

8021 POKE 656, 8: POKE 657,3:? IB | | | | | 
■ M :F8R H=l TO 15: GOSUB 8108: NEXT H:G8T 
8020 

8838 POKE 656,0:P0KE 657,28:? " SCORE 
":FOR H=l TO 15: GOSUB 8188 : NEXTH__ 
8035 POKE 656,8:P0KE 657,28:? "TflTI 
■l":FOR H=l TO 15:G0SUB 8108:NEXT H : GO 
TO 8836 
8848 POKE 656,0:POKE 657,3:? " SCORE 

M :POKE 656,8:P0KE 657,28:? " SCORE 
":FOR H=l TO 15:G0SUB 8188 
8841 NEXT H 

8045 POKE 656,0:P0KE 657,3:? 
■" :POKE 656,0: POKE 657,28:? "| 
":FOR H=l TO 15:G0SUB 8188 
8846 NEXT H:GOTO 8840 
IF PEEKC53279)r6 



SCORE 
SCORE 



8180 

2O0 

8181 

8288 

8218 



THEN POP :GOTO 8 



RETURN 

SCORE1=0 : SCORE2=0 : TIM=0 : TIME=59 

FOR G=250 TO STEP -3:S0UND 0,G+ 

5,10,15:S0UND 1,G+4,18,14:S0UND 2,G+3, 

10,13 

8215 SOUND 3,G+2,18,12:P0KE 712,RNDC0J 

*255:NEXT G:FOR G=0 TO 3:S0UND G,0,0,O 

:POKE 53248+G,35:NEXT G 

8217 POKE 712,197:G0SUB 3938: GOSUB 398 

8 :GOSUB 3918 

8228 POKE 656, 8: POKE 657,13:? " 
":POKE 712,197:G0T0 75 

1O000 POKE 559,46:I=PEEKC1063-24:POKE 

54279, I: POKE 53277, 3:P0KE 623,1 

1O010 J=I*256+5I2 : Jl=I*256+640 : J2=I«25 

6+768 : J3=I*256+896 

18815 FOR G=J TO J3+128:P0KE G,8:HEXT 

10O20 POKE 704.165:P0KE 705,165:P0KE 7 
06,228:POKE 707,220 



10025 
1003O 
+ J3 
1O035 

10048 



X=10G:Yrl7:Yl=16 
DF1=V+J:DB1=Y1+J1:DF2=Y+J2:DB2=Y 



IF RET=0 THEN RETURN 
DD=22:DIM DINF1 CDDJ , DIHF2 CDDJ ,DI 
NB1CDDJ , DINB2CDDJ , DHR (6 J , DHL C6) 
10043 CC=11:DIM DRFCCCJ , DRB CCCJ , DLF CCC 
J,DLBCCC) 

18045 FOR G=l TO DD : DINF1 CGJ =0 : DINF2 CG 
J=0:DINB1(GJ-0:DINB2CGJ=0:NEHT G 
1005O RESTORE 12580:FOR G=l TO 18:READ 

C:DINB1CG)=C:NEHT G : FOR G=l TO 22:REA 
D C :DINF1 CGJ =C: NEXT G 
1006O RESTORE 12600:FOR G=l TO 22:READ 

C:DINF2CGJ=C:NEXT G : FOR G=l TO 18:REA 
D C :DINB2 CGJ =C: NEXT G 

10865 RESTORE 12700: FOR G=l TO 6 : READ 
C:DHRCGJ=C:NEXT GlFOR G=l TO 6:READ C: 
DHL CGJ =C: NEXT G 
10066 RESTORE 12880 : F0R G=l TO 9 : READ 



C :DRF CGJ =C: NEXT G:FOR G=l 
: DRB CGJ =C: NEXT G 



TO CC:READ C 
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18068 RESTORE 12300: FOR G=l TO 9: READ 
C :DLF CGI =C: NEXT G:FOR G=l TO CC:READ C 
:DLBCG)=C:NEXT G 

10070 X=180:X1=92:X2=150:X3=158:Y=64:Y 
1=68:Y2=64:Y3=68 

10071 DFl=Y+J:DBl=Yi+Jl:DF2rY2+J2:DB2= 
Y3+J3 

11000 RETURN 

12000 DATA 1,6,28,47,63,87,175,31,28,5 

6,56,24,12,4 

12005 DATA 3,6,28,24,56,48,112,112,243 

,252,248,249,158 

12010 DATA 192,96,56,24,28,12,14,14,20 

7,63,31,153,112 

12O20 DATA 128,96,56,244,252,234,245,2 

48,56,28,28,24,48,32 

12508 DATA 1,1,1,7,7,3,7,15,7,143,199, 

143,198,158,188,240,224,64 

12510 DATA 28,52,62,122,245,242,224,25 

1,245,240,240,224,192,128,192,224,248, 

112,48,96,96,248 

12680 DATA 56,44,124,94,175,79,7,223,1 

75,15,15,7,3,1,3,7,15,14,12,6,6,31 

12610 DATA 128,128,128,224,224,192,224 

,240,224,241,227,241,99,121,61,15,7,2 

12700 DATA 76,104,208,254,240,224,50,2 

2,11,127,15,7 

1280O DATA 12,15,229,55,255,254,252,24 

8,112,128,128,240,252,31,15,79,39,19,3 

0,12 

12980 DATA 48,248,160,231,252,127,63,3 

1,14,1,1,143,63,248,240,242,228,200,12 

0,48 



CHECKSUM DATA 
(See pgs. 7-10) 



DATA 909,124,404,671,656,206,629,300 

,405,209,3,392,475,873,35,6291 

108 DATA 258,499,808,92,769,988,956,83 

5,860,956,964,352,969,677,493,10468 

175 DATA 493,966,685,148,162,188,78,38 

3,495,480,490,657,488,658,495,6778 

3500 DATA 5,527,591,975,775,52,885,887 

,805,95,78,573,304,310,415,7277 

3600 DATA 14,533,598,978,772,61,862,58 

5,272,915,927,483,308,809,606,8635 

3903 DATA 60,614,285,623,945,631,374,9 

4,308,283,99,915,6,940,9,6186 

4500 DATA 113,562,330,832,959,40,936,7 

,440,600,942,627,924,621,208,8141 

5400 DATA 86,69,289,636,440,811,823,78 

4,757,768,778,998,189,221,432,8081 

7051 DATA 557,619,754,762,766,447,463, 

450,469,465,452,456,373,329,212,7574 

7086 DATA 417,639,650,883,61,999,818,5 

31,923,437,219,391,591,605,357,8441 

8010 DATA 215,224,226,614,322,930,194, 

757,501,375,797,983,798,779,585,8308 

8215 DATA 11,115,197,176,270,801,711,9 

73,302,726,404,643,831,619,628,7487 

10065 DATA 811,777,768,769,680,43,279, 

806,564,311,872,333,488,780,373,8654 

12880 DATA 251,140,391 



Moire Demo 



10 DEG 

20 A=INT CI. 9*160) 

30 GRAPHICS 8+16 

40 SETCOLOR 2,0,0 

50 FOR 1=0 TO 160 STEP 5 

68 B=IHTCI/2J 

70 COLOR 1 

80 PLOT 0,B 

90 DRAMTO 1,160 

100 PLOT A,B 

110 DRAMTO A-1,160 

120 PLOT 0,160-B 

130 DRAMTO 1,0 

140 PLOT A,160-B 

150 DRAMTO A-1,0 

160 NEXT I 

170 IF PEEKC764)<>255 THEN END 

180 GOTO 170 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 217,62,458,287,54,4,732,588,18 
7, 758 , 408 , 289 , 838 , 329 , 363 , 5486 
168 DATA 746,161,728,1635 
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TRIPLE THREAT DICE 



16K Cassette 24K Disk 



by Michael A. Ivins 



Do you like to gamble but can't afford trips to Las 
Vegas or Atlantic City? If so, then this program is for 
you. By placing your bets carefully, you can be fairly 
sure of a high return, while impulse betting on the 
high odds might make you a big winner — or it might 
make you go broke. 

This game is modeled after a type of gambling 
machine found in Las Vegas casinos. These machines 
use three dice to play and give you several options to 
bet on. Unlike craps, you are betting solely on the 
outcome of a single roll of the dice. You may bet up 
to five coins (normally quarters) on each of the bet- 
ting options, with no limit (other than your total 
cash) to how many of the options you choose to bet 
on. 

You use your joystick to position the bet cursor 
next to the option you wish to bet. Pressing the 
trigger button will enter your bet one coin at a time 
until you reach five coins, after which it will not 
accept any more bets on that option. Moving the joy- 
stick to the left or right will move the cursor. After 
you have bet as many options as you wish, hold the 
joystick to the right until the pointer appears in the 
box marked "ROLL DICE." Press the trigger again, 
and the computer will roll the dice. 

After each roll of the dice the computer will dis- 
play your win or say "SORRY" if you did not win. 
At this time you have an additional option. If you 
should wish to take your winnings and quit, all you 
need do is pull the joystick toward you. A push on 
the trigger will return you to the betting routine. □ 



1 REM TRIPLE THREAT DICE 

2 REM BY MICHAEL A. IUIN5 

3 REM JULY, 1981 

18 DIM BET (313 :C0UHT=8 

15 GRAPHICS 8:? "THIS IS A GAME PATTER 

NED AFTER A":? "GABBLING MACHINE IN LA 

S UEGAS." 

28 ? "YOU BET 8H THE OUTCOME 8F THE RO 

LL OF":? "THREE DICE. YOU HAUE MANY OP 

TIONS YOU" 

25 ? "CAN BET ON. TO SELECT THE OPTIO 

N ON":? "WHICH YOU WISH TO BET, USE TH 

E" 

38 ? "JOYSTICK TO MOVE THE ■>■ UNTILL 

IT":? "POINTS TO THE PROPER OPTION. Y 

OU" 



35 ? "THEN ENTER YOUR BET BY PRESSING 
THE":? "TRIGGER. YOU MAY BET UP TO FI 
UE" 

48 ? "DOLLARS ON EACH OPTION." 
45 ? :? "WHEN YOU HAUE FINISHED BETTIN 
G, HOLD":? "THE JOYSTICK TO THE RIGHT 
UNTILL A" 

58 ? "POINTER APPEARS IN THE BOX MARKE 
D":? "'ROLL DIC E' AN D PRESS TRIGGER." 
68 ? :? "PRESS gEEED TO BEGIN" 
78 ? "GOOD LUCK! ! «" 
75 IF PEEK(532793 <>6 THEN 75 
98 GOTO 1868 :REM DRAW BETTING LAYOUT 
188 M=188: POSITION 7,28:? M; 
118 GOSUB 1288: REM CLEAR BETS RESET WI 
N 

128 IF C0UNT=6 THEN M=186 
138 IF STICK (8) = 9 OR STICK (83 =18 OR ST 
ICK(63=11 THEN B=B-l:G05UB 1588 
132 IF STICK (63 =6 OR STICK (83=7 OR STI 
CK(03=5 THEN B=B+1:G0SUB 1580 
135 IF B<32 THEN IF BET(B3=5 OR M=8 TH 
EN 168 

148 IF B<32 AND STRIG(83=6 THEN BET CB) 
=BET(B3+1: POSITION X,Y:? BET (B3 ;: SOUND 
8,156,18,15:M=M-1 

141 IF B<32 THEN IF BET(B3=8 THEN POSI 
TION K,Y:? " "; 

142 IF B<32 THEN IF BET(B3>8 THEN POSI 
TION K,Y:? BET(B) 

145 POSITION 7,28:? M;" "J 

148 FOR DELAY=1 TO 28:NEXT DELAY 

149 IF B>32 THEN B=32 

158 IF B=32 AND STRIG(63=6 THEN 288 

155 FOR DELAY=1 TO 28:NEXT DELAY 

168 SOUND 8,8,8,8:G0T0 138 

288 C6UNT=C0UNT+l:REM ROLL AND DRAW DI 

CE 

285 GOSUB 2788 

218 Y=0:A=INT(RND(03*6+13 :X=16:6N A GO 

SUB 18886,18818,18828,18838,18840,1885 

6 

228 X=14:B=INT(RND(83*6+13 :0N B GOSUB 

18068,18618,16626,18636,16848,18658 

236 X=18:C=INT(RND(83*6+13 :6N C GOSUB 

16666,18618,16626,18836,16646,18856 

248 D=A+B+C:IF C0UNT>1 THEN C0UNT=1 

256 REM PAY WINNING BETS 

268 IF BET (83=6 OR D<12 THEN 275 

265 WIN=WIN+BET(83 :P0SITI0N 6,21:? WIN 

276 POSITION 3,14:? "+"; 

275 IF BET(13=8 8R D>9 THEN 298 

286 WIN=WIH+BET (13 : POSITION 6,21:? WIN 

285 POSITION 3,15:? "+"; 

296 IF AOB OR BOC BR BET (23 =6 THEN 3 

85 

295 WIN=WIN+ (BET (23*363 :P0SITI0N 6,21: 

? WIN; 

368 P6SITI0N 3,16:? "+"; 

385 IF (AOB AND A<>C AND B<>C3 OR BET 

(33=6 THEN 326 

318 IF A=B OR B=C OR A=C THEN WIN=WIN+ 

(BET(33*63 IPOSITION 6.21:? WIN; 

315 POSITION 3,17:? "+"; 

326 IF A=B AND B=C THEN GOSUB 2868 
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330 IF A=B THEN G=A:GOSUB 2100 

335 IF A=C THEN G=A: GOSUB 2100 

340 IF B-C THEN G=B:G05UB 2190 

350 IF D<11 THEN G05UB ( f D-31*10) +2200 

352 IF 0>10 THEN G05UB CABS CDiS)*iGJ ± 

2200 

360 IF D=17 THEN GOSUB 2210: IF D=18 TH 

EN GOSUB 2200 

370 tt=M+HIN: POSITION 7,20:? M; 

372 IF M=0 THEN 420 

373 IF M>=5000 THEN 5000 
375 IF HIN>0 THEN 400 
380 GOSUB 2600 

382 POSITION 1,0:? "SORRY"; 

385 IF STRIG(0)=0 THEN POSITION 1,0:? 

" "; :G0T0 110 

350 IF STICKt0J=13 THEN 500 

395 GOTO 382 

400 GOSUB 2500 

402 POSITION 1,0:? "WINNER"; 

405 IF STRIGC0)=0 THEN POSITION 1,0:? 

" "; :G0T0 110 

410 IF STICK (0) =13 THEN 500 

415 GOTO 402 

420 ? "WM SORRY, BUT YOU HAVE GONE B 

ROKE":? "IF YOU WISH TO START AGAIN HI 

TH A" 

430 ? "NEW BA NKROLL PRESS SEED, TO QU 
IT":? "press HM13B" 

440 IF PEEKC532791<>6 AND PEEKC53279X 

>5 THEN 440 

450 IF PEEK(53279J=6 THEN C0UNT=0:G0T0 

90 
460 IF PEEK<53279)=5 THEN ? "GOODBYE A 
ND BETTER LUCK NEXT TIME": END 
5O0 ? "SIT IS A WISE GAMBLER MHO KKNOM 
S MHEN TO QUIT." 

510 ? :? "THANK YOU FOR PLAYING AND GO 
OD LUCK TO YOU THE NEXT TIME." 
520 ? :? "GOODBYE.": END 
1OO0 GRAPHICS 0:POKE 752,1:P0KE 82,1:S 
ETCOLOR 2,12,12:? " 

USE JOYSTICK"; 
1002 SETCOLOR 1, 12, : SETCOLOR 4,12,12 
1005 ? " TO 

MOVE BET" 

1010 ? " POI 

NTER" 

1020 ? :? "PAYS 216-1 PAYS 18-1 TOT 
AL PAYS" 
1025 ? "| 



1030 ? "| 

216-1|" 

1035 ? "| 

72-l|" 
1040 ? "J 

36-11" 
1045 ? "| 

21-1|" 
1050 ? "| 

14-1|" 
1055 ? "| 

10-11" 

1060 ? "I- 

9-l|" 

1065 ? "i- 

8-l|" 

1070 ? "| 

8-1 1" 

1075 ? "| 

9-1 1" 

1080 ? "| 

10-1I" 
1085 ? "| 

14-1|" 
1090 ? "«- 

21-1|" 
1995 ? 



I r 

3-0NES | 
3-TWOS | 
3-THREESl 
3-FOURS | 
3-FIUES | 
3-SIXES | 



2-ONES 

2-TMOS 

2-THREES 

2-F0UR5 

2-FIVES 

2-5IXES 



HI COVER 11) 1-1 

LO CUNDER 10) 11 

ANY 3 OF KIND 36~1 

ANY 2 OF KIND 6-1 



36-l|" 
1100 ? "| CASH: 

72-l|" 
1105 ? "| WIN: 

216-1|" 
1110 f "' 



I! 
II 

-I !_ 



ROLL 
DICE 



3 

4 

5 

6 

7 

8 

9 

it) 

11 

12 

13 

14 

15 

16 

17 

IS 



J " 



1120 GOTO 110 

1200 POKE 752,1 IFOR 1=0 TO 31:BETtI)=0 

INEHT I 

1210 FOR 1=6 TO IMPOSITION 2,1:? " " 

;:POSITION 14,1:? " ";:HEXT I 

1220 FOR 1=14 TO 17:P0SITI0N 2,1:? " 

" " : NEXT I 

1239 FOR 1=6 TO 21: POSITION 26,1:? " 
" ■ : NEXT I 

1240 POSITION 19,20:? " 4* "; 
1270 MIN=0: POSITION 6,21:? " 
1280 B=0:GOSUB 1500 

1290 RETURN 

1500 IF B<0 THEN B=0:IF B>32 THEN B=32 

1510 IF B=0 THEN POSITION 3,14:? ">++ 
"; :X=2:Y=14 

1511 IF B=l THEN POSITION 3,14:? " ♦+> 
♦ *■ "':X=2:Y=15 

1512'lF B=2 THEN POSITION 3,15:? " ♦♦> 

if iii • Vz2 ] Y-lfi 

1513' IF B=3 THEN POSITION 3,16:? " +*> 
";:POSITION 3,6:? " ";:X=2:Y=17 

1514 IF 8=4 THEN POSITION 3,17:? " "; : 
POSITION 3,6:? ">+* ";:X=2:Y=6 

1515 IF B>4 AMD B<9 THEN POSITION 3,B+ 
l:? " **>** ";:X=2:Y=B+2 

1516 IF B=9 THEN POSITION 3,10:? " ++> 
";:POSITION 15,6:? " ";:X=2:Y=11 

1517 IF B=10 THEN POSITION 3,11:? " "; 
■.POSITION 15,6:? "> + * ";:X=14:Y=6 

1518 IF B>10 AND B<15 THEN POSITION 15 
,B-5:? " ♦+>** "; :X=14:Y=8-4 

1519 IF B=15 THEN POSITION 15,18:? " 4 
*>"; :P05ITI0N 27,6:? " ";:X=14:Y=11 

1520 IF B=16 THEN POSITION 15,11:? " " 
;:PO5ITI0N 27,6:? ">** ";:X=26:Y=6 

1521 IF B>16 AND B<31 THEN POSITION 27 
,B-ll:? " +*>+* "; :X=26:Y=B-10 

1522 IF B=31 THEN POSITION 27,20:? " * 
*>"; :POSITION 19,20:? " +* ";:X=26:Y=2 
1 

1523 IF B=32 THEN POSITION 27,21:? " " 
;: POSITION 19,20:? "k*«T"; 

1550 RETURN 

2000 IF BETCA+3)=0 THEN RETURN 

2010 WIN=MIN+ f BET tA+33*216) : POSITION 6 

, 21 : ? WIN ; 

2020 POSITION 3,A+5:? "+"; 

2030 RETURN 

2100 IF BETCG+9>=0 THEN RETURN 

2110 MIN=MIN+BETCG+9J*18:P0SITI0N 6,21 

:? WIN; 

2120 POSITION 15,G+5:? "+"; 

2130 RETURN 

22O0 IF BETC13+D)=0 THEN RETURN 

2202 MIH=MIN+8ETC13+D3*216: POSITION 6, 

21 : ' MIN ■ 

2204 POSITION 27,D+3:? "+"; 

2206 RETURN 

2210 IF BET(13+D)=0 THEN RETURN 

2212 MIN=WIN+BET«13+D)#72: POSITION 6,2 

1 : n MI N * 

2214 POSITION 27,D+3:? "+"; 

2216 RETURN 

2220 IF BET(I3+D)=0 THEN RETURN 

2222 HIN=WIH+BET<13+D)*36:P05ITIQN 6,2 

1:? MIN; 

2224 POSITION 27,D + 3:? "+■•; 

2226 RETURN 

2230 IF BET(13+DJ=0 THEN RETURN 

2232 MIN=MIN+BETC13+D3*21: POSITION 6,2 

1 : * WIN ■ 

2234 POSITION 27,D+3:? "+"; 

2236 RETURN 

2240 IF BETU3 + D)=0 THEN RETURN 

2242 MIN=WIN+BET<13+D3*14:P05ITI0N 6,2 

l:? MIN; 

2244 POSITION 27,D+3:? "+"; 

2246 RETURN 

2250 IF BETC13+D)=8 THEN RETURN 

2252 MIN=WIN+BET(13+D)*18:P0SITI0N 6,2 

IS? MIN; 

2254 POSITION 27,D+3:? "+"; 

2256 RETURN 

2260 IF BET(13+D)=0 THEN RETURN 



VOL. 1 



THE A.N.A.L.O.G. COMPENDIUM 



PAGE 125 



2262 HIN=WIH+BETa3+DJ*9: POSITION 6,21 

:? WIN; 

2264 POSITION 27,D+3:? ■■+"; 

2266 RETURN 

2270 IF BET (13+01=0 THEN RETURN 

2272 WIN=HIN+BETC13+DJ*8: POSITION 6,21 

:? WIN; 

2274 POSITION 27,D + 3:? ,, + M ; 

2276 RETURN 

2500 FOR 1=1 TO 18 

2585 FOR 5=48 TO 98 STEP 5 

2510 SOUND 8,5,18,18 

2538 NEXT S 

2548 FOR S=98 TO 40 STEP -5 

2550 SOUND O,S,1O,10 

2570 NEXT S 

2580 NEXT I 

2590 SOUND 0,O,0,8:RETURN 

2688 SOUND 0,288,18,18 

2628 FOR DELAY=1 TO 190: NEXT DELAY 

2638 SOUND 8,241,18,18 

2648 FOR DELAY=I TO 158:NEXT DELAY 

2650 SOUND 8,8,8,8:RETURN 

2788 FOR 1=1 TO 28 

2718 FOR 5=8 TO 58 STEP 28 

2728 SOUND 0,5,8,15 

2730 NEXT S: SOUND 8,8,8,8 

2748 NEXT I 

2758 POKE 77,8:RETURN 

5880 ? CHRS(125J;"THI5 MACHINE HAS NO 

MORE MONEY." 

5010 ? :? "IF YOU WISH TO GASH IN YOUR 

BANKROLL":? "AND PLAY AGAIN AFTER THE 

MANAGE-" 
5028 ? "ME NT HAS REFILLED IT . T HEN PRE 
55":? "00331. TO QUIT PRESS HOJED-" 
5838 IF PEEKt53279J<>6 AND PEEKC53279J 
<>5 THEN 5838 

5848 IF PEEK (53279:) =5 THEN ? "THANK YO 
U FOR PLAYING":? "GOODBYE !": END 
5058 COUNT=0:GOTO 1888_ 
18688 POSITION X,Y:? 
18861 POSITION X,Y+l:? 
18802 POSITION X,Y+2:' 
10883 RETURN 
16816 POSITION X,Y:? "[ 

18811 POSITION X,Y+l! 

18812 POSITION X,Y+2! 

18813 RETURN 
18628 POSITION X,Y:? 
18821 POSITION X,Y+l: 

18622 POSITION X,Y+2: 

18623 RETURN 
18638 POSITION X,Y:? 
16631 POSITION X,Y+l: 

18832 POSITION X,Y+2:? 

18833 RETURN 
16040 P8SITI0N X,Y:? 
18641 P8SITI0N X,Y+1:? 
16642 POSITION X,Y + 2:^» 
18843 RETURN 
16658 P85ITI0H X,Y:? 
18851 POSITION X,Y+l:?^T 
16852 POSITION X,Y+2:? 
18853 RETURN 



1855 DATA 543,35,181,873,27,87,67,111, 
182,484,356,257,868,548,199,4584 
1228 DATA 682,788,226,362,614,794,459, 
991,183,191,167,944,79,466,436,7374 
1518 DATA 728,852,599,718,893,935,799, 
182,53,69,784,283,782,193,787,8569 
2286 DATA 985,944,198,799,986,38,199,8 
68 , 987 , 35 , 288, 861 , 988 , 25 , 281 , 7858 
2236 DATA 882,909,31,282,863,916,24,28 
3 , 884 , 911 , 751, 284 , 885 , 912, 751 , 9822 
2274 DATA 285,886,347,111,418,534,289, 
453,538,589,257,757,623,766,635,7248 
2650 DATA 256,356,281,686,436,511,94,1 
68,973,526,942,891,148,178,288,6586 
18802 DATA 258,49,136,246,248,51,150,2 
12,238,53,982,258,228,55,118,3162 
18841 DATA 216,222,57,128,218,224,59,1 
116 







CHECKSUM DATA 

(See pgs. 7-10) 



1 DATA 583,632,398,141,268,152,941,724 

,364,964,357,926,652,485,781,8266 

98 DATA 7,758,336,439,688,576,166,814, 

491,127,146,339,678,261,339,6151 

168 DATA 157,784,884,588,315,334,588,4 

56,813,248,964,928,252,975,45,8235 

295 DATA 698,951,120,868,962,547,866,8 

67,818,363,993,318,143,562,985,9843 

375 DATA 859,824,685,727,478,749,881,9 

11,496,456,785,583,643,981,387,18125 

466 DATA 784,326,95,158,883,846,105,96 

5,524,223,498,533,765,549,460,7486 
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BICYCLE 



16K Cassette 24K Disk 



by Dan Devos 



Bicycle is a one player game. You are a messenger 
working for the largest shipping company in the 
world. As part of your daily routine, you must run 
memos and invoices from the main shipping offices 
out to the loading and receiving docks. Leaping on 
your trusty bicycle, you proceed across the vast 
parking lot, past rows of idling tractor trailer rigs, 
dodging the many potholes that impede your 
progress. However, the potholes are not the only 
things you have to look out for. The drivers of the 
trucks are in a hurry to leave, and often they can't 
bother to watch out for one poor little messenger on 
a bicycle! Needless to say, you have to be careful 
where you're going! 

Playing the game. 

The cyclist is continually proceeding at a fixed 

rate, and he can also move up and down. Every time 

you are hit by a truck or fall into a pothole, you lose a 

cyclist. There is a total of three cyclists in a game. 

Scoring. 

For every space you move, you get one point. For 
every section of the parking lot, there are two truck 
drivers walking to their trucks. If you hit a walking 
truck driver you get 500 points. Watch out! The 
truck drivers can stand over the pot holes and when 
the cyclist hits them he falls into the hole. 
The program. 

This program uses a machine language subroutine 
to move player missile graphics. The program draws 
two rows of trucks in Graphics Mode 1. Then three 
players, exactly the same as the edited characters, are 
put on top of three of the trucks. These trucks are 
erased and the player trucks can then move 
smoothly. The rest of the program just moves the 
players. Type in the program and wait until the 
screen display says "Press Start." □ 



8 GOTO 3SO60 

1 BB = C0:T = CO:U = COlUzCO;?)IM CHARSCC8),W 
HICHtC3,C2) :CHAR$="FQUUWKZ" 

2 GRAPHICS CI7:CH5ET=tPEEKCI863-C32}*C 
255:CH0RG=57344;P0KE 623, CI 

3 FOR I = C8 TO 51i:P05CE CH5ET+X , PEEK tCH 
0RG+I3 ;NEXT I 

4 FOR I=CI TO C7 



5 CHP0S = CHSET+(ASC£CHaRSmj-C32}*C8 

6 FOR J=C8 TO C7 

7 READ fllPOKE CHP05+J,0 
3 NEXT J:NEKT I 

9 FOR I-C32 TO 39;P0KE CH5ET+X, C256-C1 
--PEEKCCH0RG + I3 :HEXT I 

10 POKE 756,CHSET/C256 

15 DATA 0,0,223,143,213,85,223,0 

16 DATA 0,16,120,254,127,38,4.0 

17 DATA 8.8,28,20,54,0,0,0 

18 DATA 0,0,28,28,93,42,28,8 

19 DATA 112,112.248,248,252.252,225,22 
6 

28 DATA 226,226,254,254,255,127,181,24 

21 DATA 223,95,27,0,0,0,0,0 

31 BB=C8:V=C0s5ETC0L0R C2 . C3, C4 : SETC01 
OR C3,C8,i2;5ETC0L0R CI , C8 , C8 I 5ETC0LQR 

C0,C8,C4 

32 BB=C8:H-C3: POSITION C5,19i? ttC6 : "ME 
NiUUU": POSITION C9.C28:? »C6;"!JUU" 

35 T = C0:U = C8:SETC0L0R C2 , C3 . C4 : SETC0L0 

R C3 , CO, 1 2 

49p6sitl0N C2.C5:? UC6; 



58 PO SITION C2, 12? J 

ul3h!u.1HliiI 



ncbi 



H H Hi H ... 



54 5ETC0L0R CI , C8 , C8 : J-INT CC17#RND tCOJ 
+C2) :K=INTtC4*RNDCC03+C83 

55 L=INTtC17*RNDfC0J+C2J : M=INT CC4#RND ( 
C03+C8J :P0SITI0N J,K:? ttC6;"q" 

56 POSITION L,M:? itC6 : "q" 

57 5ETC0L0R CO . C8 , C4 : N = INT £ C17*RND CC63 
+ C2J : 0-INT tC3*RND (CO) +C8) 

68 P-INT(C17*RNDCC8)+C2) : OrlNT (C3#RND C 
CO) *C83 ! POSITION N^:^ »C6: !, V" 
65 POSITION N,0 + C1:? ttC6 : "il" : POSITION 
P,Q: ? «C6;"u*';P0SITI0N P.Q + C1:? »C6 : "U 

II 

70 IF AA THEN 4008 

108 AA-C1:P0KE 752,C1;P0KE 53257, C0:P0 

KE 53258, C8 : POKE 53259, C8 

110 PC0L0=26:PC0L1=52:PC0L2=52:PC0L3=5 

2 

1800 FOR 1 = 1536 TO 1706:READ A.'POKE I, 

AsNEKT I 

1018 FOR 1=1774 TO 1787:P0KE I,C8;N£XT 

I 
1020 PM=PEEK £106) -C16 ; PMBA5E = C256*PM 
1830 FOR I=PMBA5E+1023 TO PMBASE+2846: 
POKE I,C0:NEKT I 

1848 FOR I=PMBA5E+1025 TO PMBASE+1934: 
READ A;P0KE I,A:NEKT I 

1050 FOR I=PMBA5E+1281 TO PMBASE+1299: 
READ AiPOKE I,A5NEXT I 

1860 FOR IzPMBASE+1537 TO PMBASE+1555 : 
READ A:P0KE I,A:NEHT I 

1861 FOR I=PMBA5E+1793 TO PMBASE+1811 : 
READ AlPOKE I,A:NEKT I 

1878 POKE 704.PC0L0IP0KE 705 , PC0L1 1 POK 
E 706, PC0L2 SPOKE 707,PC0L3 
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1880 PLX=53248:PLY=1780:PLL=1784 

1890 POKE 559,62:P0KE 1788 , PM+C4 ! POKE 

53277, C3:P0KE 54279, PM 

1100 X=USRC16963 

2O00 DATA 162,3,189,244,6,240,89,56,22 

1,240,6,240,83,141,254,6,106,141 

2010 DATA 255,6,142,253,6,24,169,0,109 

,253,6,24,109,252.6,133,204,133 

2020 DATA 206.189,240,6.133,203,173,25 

4,6,133,205,189,243,6,170,232,46,255 

2030 DATA 6,144,16.168,177,203,145,205 

,169, 0,145, 203, 136; 202, 203, 244,76,87 

2O40 DATA 6,160.0,177,203,145,205,169, 

0,145,203,200,202,208,244,174,253,6 

2050 DATA 173,254,6.157,240,6,189,236, 

6,240,48,133,203,24,138,141,253,6 

2060 DATA 109,235,6,133,204,24,173,253 

,6.109,252,6,133,206,189,240,6,133 

2070 DATA 205,189,248,6,170,160,0,177, 

203,145,205,208,202,208,248,174,253,6 

2080 DATA 169,0,157,236,6,202,48,3,76, 

2,6,76,98,228,0,0,104,169 

2090 DATA 7,162,6,160,0,32,92,228,96 

3000 DATA 48,48,32,56,36,56,110,181,16 

5,66 

3010 DATA 112,112,248,248,252.252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3020 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3030 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

40OO POKE PLL,C10:P0KE PLL+C1 , C20 : POKE 

PLL+C2,C20:POKE PLL+C3, C20 : A=CO : B=80 
4010 POKE PLX,A+C48:P0KE PLY,B+C32 
4020 G = INKC4*RNDCC0) J +C1 : D=G#C16 : E=95 
:POKE PLX+C1,D+C48:P0KE PLY+C1,E+C32 
4030 G=G+G:POSITION G,12:? »C6;" ":P05 
ITIOH G.13:? UC6;'' ":P0SITI0N G,14:? H 
C6 J " " 

4040 I=IHTCC5KRHDCC0)J+C5:F=I*C16:G=95 
:POKE PLX+C2,F+C48:P0KE PLY+C2,G+C32 
4050 I=I+I:POSITION 1,12:? »C6;"' S, :P05 
ITION 1,13:? «C6;" ":P05ITI0N 1,14:? tt 
C6 ' " " 

4060 R = INT CC9*RND CCOJ 3 +C1 : H=R*C16 : 1 = 39 
:POKE PLX+C3,H+C48:P0KE PLY+C3,I+C32 

4070 R=R+R:POSITION R,C5:? ttC6;" " : P05 
ITIOH R,C6:? »C6j" ":P05ITI0N R,C7:? « 
C6; M " 

4071 POKE 53278, CO:IF BB THEN 4080 

4072 BB=C1:S0UND CO, 200, CIO, C8 ! SOUND C 
1,201, CIO. C8 

4073 POSITION C5,18:? ttC6;"press start 



4230 IF NOT STRIG ICO) THEN 9000 

4300 E=E-C1:P0KE PLX+C1 , D+C4S : POKE PLY 

+C1,E+C32:G=G-C1:P0KE PLX+C2 , F+C48 : POK 

E PLY+C2,G+C32 

4310 I=I+C1:P0KE PLX+C3,H+C48:P0KE PLY 

+C3,I+C32 

4600 IF PEEK (53260) THEN 30000 

5000 A=A+C5 

5001 IF STICK <C0)=13 THEN B=B+C3 

5002 IF STICKCC0)=C7 THEN A=A+Ci 

5003 IF STICK ICO) =14 THEN B = B-C3 

5004 IF A>165 THEN 20000 

5005 Y=Y+Cl:SOUND CI , 50 , CIO , C8 : SOUND C 
1,C0,C0,CO:POKE PLX,A+C48;P0KE PLY,B+C 
32IG0T0 4O80 

9000 FOR ZZ=C1 TO 30 : NEXT ZZ 

9001 IF NOT STRIG (C03 THEN 4390 

9002 GOTO 9001 

lOOOO T=Cl:P0SITION N,0:? ttC6 ; "F" : POSI 
TION N,0+Cl:? »C6;" "IGOTO 10060 
10010 U=C1:P0SITI0N P,0;? »C6 ; "F" : POSI 
TION P,Q + C1:? BCe;"' "'JGOTO 10068 
10060 U=U+Cl:Y=Y+50O:FOR KK=C256 TO CI 

STEP -C1:S0UND CO,KK,C10,14:NEXT KK : 5 
OUND CO,C0,C0,CO:GOTO 4080 
2OO00 POSITION N,0:? ttC6;" ":P05ITI0N 
N,0+Cl:? 8C6;" ":POSITION P,G:? «C6;" 
"iPOSITION P,Q+Ci:? «C6;" " 
20010 POSITION J,K:? ttC6," ":POSITION 
L,M:? ttC6;" " 
2O02O GOTO 35 

30000 W=M-Cl:POKE PLX,A+43:P0KE PLY,B+ 
C32:F0R XX=14 TO CO STEP -CI 
30O1O SOUND C0,25O,C10,XX:FOR YY=C1 TO 

C2:NEXT YY:NEXT XX 
3002O POSITION N,0:? »C6;" "IPOSITION 
N,0+Cl:? ttC6;" "iPOSITION P,Q:? »C6," 
";POSITION P,Q+Cl:? ttC6;" " 

30030 POSITION J,K:? ttC6;" ":P0SITI0N 
L,M:? »C6;" " 

30031 POSITION C5,19:? ttC6 ; "MEN : " : FOR 
Z=CO TO IMPOSITION C9+W,19:? ttC6;" ":P 
OSITION C9 + W,C20:? ttC6 ; "' ":NEXT Z 
30040 IF NOT U THEN 31 

30050 GOTO 35 

30O6O C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7 

=7:C8=8:C9=9:C10=10:C16=16:C17=17:C2O= 

20:C32=32:C48=48:C256=256 

30070 GRAPHICS C1:SETC0L0R C2,C0,CO:PO 

SITION C5,C8:? ttC6:"# BICYCLE #":POSIT 

ION C9,C10:? ttC6;"BY" 

3O08O POSITION C6,12:? »C6;"DAN DEVOS" 

3O09O FOR T=C1 TO 200:SETC0L0R C0,T,C8 

IPOSITION C5,C8:? ttC6;"# BICYCLE *«' : NE 

XT T:GOTO 1 



IF PEEK (5 



4074 R=R+Cl:SETCOLOR C1,R,C8: 
3279JOC6 THEN 4073 

4075 POSITION C5,18:? «C6;" 
":5ETC0L0R CI . C8 , C8 : SOUND CO. 
SOUND CI, CO, CO, CO 
4888 POSITION C5,C17:? ttC6;"S 
4081 IF INK(A/C8)+C1J*C8 + C4> 
R INTf CA/C8)+C1)*C8+C4<J*C8 T 
4090 IF INK(B/C8)+CI)*C8 + C4> 
INKCB/C8)+C1)#C8 + C4<K*C8 + C8 


4120 IF INK(A/C8)+C1J*C8 + C4> 
R INK(A/C8)+CIJ#C8 + C4<L*C8 T 
4130 IF INKCB/C8)+C13*C8 + C4> 
INK CB/C8)+CI)*C8+C4<H*C8+C8 


4140 IF T THEN 4I90 
4150 IF INK CA/C8)+C1J#C8 + C4> 

R TNK(A/C8J+C13*C84C4<N*C8 T 

4160 IF INKCB/C8J+C13*C8 + C4> 

INKCB/C8)+C1J*C8 + C4<0*C8 + C16 

00 

4190 IF U THEN 4220 

4200 IF INKCA/C8)+C1)*C8 + C4>P*C8 + C8 

R INKCA/C8)+C1)*C8 + C4<P*C8 THEN 4220 

4210 IF INKCB/C8)+C1J*C8 + C4>Q*C8 AND 

INKfB/C8i+Cl)#C8 + C4<0#C8 + C16 THEN 100 

10 

4220 IF INTCtB/C8)+Cl)*CS+C8<63 OR INT 

(CB/C8)+C1)*C8+C8>96 THEN 30000 



CO, CO, CO: 

CORE:";Y. 
J*C8+C8 6 
HEN 4120 
K*C8 AND 
THEN 30O0 

L*C8+C8 
HEN 4140 
M*C8 AND 
THEN 3008 



N*C8+C8 
HEN 4190 
0*C8 AND 
THEN 100 



CHECKSUM DATA 
(See pgs. 7-10) 



DATA 
214,585 
19 DATA 
,16,468 
1O0 DAT 
5,609.6 
2010 DA 
647,2.5 
4020 DA 
84,906, 
4130 DA 
839,864 
5003 DA 
33,948, 
30030 D 
,187,48 



633.344,996,665 
,127,436,580,86 
280,270,31 .833 
,564,29,504,789 
A 665,304.46,29 
12,172,12,272,2 
TA 175,662,640, 
56,537,538,539, 
TA 957.920,999, 
101,959,678,731 
TA 822,549,766, 
,417,863,469,36 
TA 823,772,423, 
757,303,907,539 
ATA 309,802,886 
26 



,276,726,280,49, 

1,385,7157 

,464,387,401,358 

,386,5780 

6,542,845,568.59 

46,433,6217 

727,304,533,798, 

378,590,7626 

940,59.194,351,8 

,821,740.19240 

915.551,753.920, 

3, 8i4, 854, 10764 

19.855,743,711,7 

,631,763,9927 

,915,636.321,770 
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COLOR 
SLOT MACHINE 



24K Cassette or Disk 



by Michael A. Ivins 



The re-defined character set is a powerful tool 
which can be used in many different ways. The 
characters can be used for special animation effects, 
and are especially useful when combined with 
certain types of modified display lists. Finally, they 
can be used to create colorful graphic displays in the 
text mode, GR.O. This last application is the subject 
of this article. 

If you have ever done much playing around with 
GR.8 you know that getting four colors in this mode 
is not as difficult as you might expect. For the new- 
comers I include example Program 1 to show what I 
mean. 



18 GRAPHICS 8:5ETC0L0R 2,0,15 

28 5ETC0L0R 1,0,8:C0L0R 1 

38 FOR X=8 TO 208 STEP 2: PLOT X,0 

40 DRAMTO X, 10: NEXT X 

58 FOR X=l TO 281 STEP 2. "PLOT X,20 

68 DRAMTO X, 38: NEXT X 

78 FOR X=8 TO 200:PL0T X,40 

80 DROHTO X, 50: NEXT X 



Program 1. 

This may seem to have little to do with re-defined 
character sets, but bear with me, I'm coming to it. 
The example should show what appear to be three 
bars on a white background with blue at the top, red 
next and black at the bottom. The program was 
supposed to draw two sets of evenly spaced vertical 
lines and one solid bar, so what happened? You 
would expect the bottom bar to be black. The only 
differences between the top two bars is in the posi- 
tioning of the vertical lines, yet we get the two colors. 



This effect is due to a curious property of the 
graphics screen whose technical name is "artifact- 
ing. " Simply stated, the principle is that a single pixel 
of GR.8 (the smallest the ATARI will generate) will 
be one color while another pixel one space or any 
odd number of spaces away will have a different 
color. By now you are probably asking, "If this guy 
wants to talk about re-defined character sets, why all 
this stuff about colors in GR.8?" Every character has 
eight bytes associated with it, and the pattern made 
up by those bits which are ones determines the shape 
of the character. Two examples of this are shown in 
Figure 1 with 1A showing the bit pattern of the 
letter "A" and IB showing a percent sign. Each 
pixel has a GR.O character, whether it be text or 
control graphic, is identical to a single pixel of GR.8. 
By applying the same techniques which gave us 
colors in GR.8 to re-defining characters, we can get 
many kinds of colored graphic characters. 



A 

00000000 

00011000 

00111100 

01100110 

001100110 

01111110 

01100110 

00000000 



B 

00000000 
01100110 
01101100 
00011000 
00110000 
01100110 
01000110 
00000000 



Figure 1. 



There is one important factor which should be 
mentioned at this point. The colors you can get from 
your special characters (or a GR.8 display) will 
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depend on the chosen background color and chosen 
luminosity of the foreground. For your own appli- 
cations you should experiment with the combina- 
tions of foreground and background color which 
gives the effect you want most. For the purpose of 
this article and the game program which accompan- 
ies it I use a white background (SETCOLOR 2,0, 15) 
and a black foreground (SETCOLOR 1,0,0). 

1 give two examples in Figures 2 and 3. For 
greater ease of use I have enlarged the pattern of bits 
so you can see them better than in the previous 
example. I have also labeled the values of the bits and 
given the decimal values that you would poke into 
the character table to make the changes. With the 
specified colors, the character defined in Figure 2 
will give you a solid blue block while the one in 
Figure 3 will make a solid red block. 













Decimal 


8 64 32 16 8 4 


2 


1 


value 


1 1 


I ] 
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1 





170 


1 1 
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1 
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1 1 
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170 
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170 


1 1 
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1 1 
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170 



Figure 2 (Blue Block). 
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Figure 3 (Red Block). 

Simple red and blue blocks alone make for rather 
dull graphics, but I'm sure you can see that by clever 
arranging of the dots you can create many interesting 
shapes. If the shape you want is too large to fit into a 
single 8x8 grid then use two, three or even more 
characters. To give one example of the kinds of 
things that can be done with color graphics 
characters and hopefully have a little fun at the same 
time, I include my program for Color Slot 
Machine. 

Before getting into a description of the game itself 



there is a comment I would like to make. Calcula- 
ting out all the numbers for special characters you 
have drawn on graph paper is very slow work and it 
tends to be boring. Fortunately this is the sort of task 
which lends itself to being "computerized." There 
are, in fact, many character editor programs on the 
market as well as some which have been published in 
magazines. These all allow you to make changes in an 
enlarged matrix and see the effects of these changes 
on the normal sized character. They let you save the 
special character set or "font" for use with your own 
programs. I used such a program which went as far as 
writing the actual subroutine that does the work in 
the Slot Machine game. 

The game. 

After the title display, the program will draw a 
colorful slot machine on the screen making use of 
several kinds of colored graphics characters. There 
are two ways to play, which you choose by pressing 
the OPTION button any time there is no bet placed. 
For those who might be unfamiliar with slot 
machines I will describe the options. Single line play 
uses only those symbols which line up in the center 
of the pay windows. In this version additional 
"coins" bet give bigger payouts when a winning 
combination comes up. The five line version gives 
more ways to win by adding top, bottom and dia- 
gonal paylines for the number of coins played. Single 
line play can pay more when it pays, but the five line 
version can give more ways to win so you win more 
often. 

Playing the game itself is simple. To enter a single 
coin bet, press the trigger button of the joystick and 
release. If you wish to bet the maximum bet of five, 
simply hold the trigger button down until the beeps 
stop. In the single line version the paychart changes 
to reflect payout for the size of the bet, while the five 
line version employs line pointers to indicate how 
many lines are in play. When you have made your 
desired bet, move the joystick in any direction to 
spin the reels. More details are given in the program 
documentation. Happy gambling! □ 

PROGRAM DOCUMENTATION 

The first thing the program does is to jump to the 
routine which alters the character set and since that is 
the main thing I wish to. illustrate, I will cover this 
first. 

Line 32000 The first step resets RAMTOP. 
Next a graphics command to set the new top of 
memory. Now we poke the location of the new 
character set. 

Line 32005 This defines a machine language 
routine which will copy the old character set out 
of ROM into the protected area of RAM. 

Lines 32010-32015 These lines are here to 
give you something to look at while the char- 
acter set initializes. You won't see anything at 
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this point since the area pointed to by CHBAS 
(location 764) is blank. 

Line 32020 This executes the machine 
language routine so that the material printed in 
the previous lines can now be seen on the screen. 

Lines 32030-32040 Now we make the 
actual changes. We first read the number that 
tells where to start and then put in the new 
numbers. Some of the characters look a bit 
funny (like a cluster of cherries with a blue leaf 
or a purple bell) but this is the best I could do 
with these colors. 

Now we return to the main program and from this 
point I will take things in the sequence they are 
shown in the program. 

Lines 10-11 These set up the reels of 30 
"symbols" on each. If you wished to change the 
odds of the game, this is the place to do it. You 
could make it harder to win by changing the 
symbols or by adding no pay symbols or blanks. 
If you wanted to, you could set up the reels so 
that you would win on every play, which I 
would consider to be boring 

Line 30 Jumps to the routine which draws 
the machine. 

Lines 40-100 Here we set the initial values 
for game counters and display them. This also 
lets you know you are playing the one line 
version. 

Line 120 This displays the betting prompt. 

Line 125 If the bet is the maximum or the 
bankroll is zero then the betting routine is 
skipped. 

Line 130 Wait for trigger press, increment 
bet, decrement bankroll and start sound. Also 
gosub to change the paychart. 

Line 135 Jump to the five line version if 
OPTION is pressed and bet is zero. 

Line 145 Erase play prompt if bet reaches 
maximum. 

Line 150 A delay is slow betting. 

Lines 160-168 Display bet, shut off sound, 
display bet. 

Lines 170-175 Return to betting loop if 
stick not moved or if stick moved but bet zero. 

Line 180 Zero out the attract mode. 

Lines 290-310 Jumps to the routine that 
animate the handle and spin the reels. 

Lines 311-315 Reads the symbols on the 
payline and jumps to payroutine. 

Lines 320-327 Calculates the proper length 
of windsound and jumps to that routine. 

Lines 330-340 Resets bet to zero and if any 
money is left you are returned to the betting 
routine. 

Lines 350-420 This is the routine that is 
activated if you go broke. It resets the left 
margin, erases the paychart and then gives you 
your quit or start over options. Starting over 



redraws the machine and paychart and resets all 
values to beginning levels. Quitting naturally 
ends the game. 

Lines 500-590 The functions here are 
similar to the betting loop of the single line 
version. The main difference is in setting line 
pointers instead of changing the paychart. 

Lines 600-610 This reads all payable 

locations. Caution should be noted here. Be 

sure when you type these lines in that you use 

the abbreviation LOC, for LOCATE and POS, 

for POSITION, or you won't get everything in 

on those lines. 

Lines 620-676 This section checks tor 
winning combinations and jumps to the payout 
routine if one is present. I originally tried to 
make this section more brief, but kept getting 
errors. 

Lines 680-698 Checks for win and goes to 
sound routine if appropriate. 

Lines 700-720 Resets bet, erases line 
pointers and jumps back to betting routine if 
not bankrupt. 

Lines 1000-1055 This creates the siren for 
winning and is a simple tone with rising and 
falling pitch. 

Lines 1300-1360 This is the routine which 
resets the paychart according to the size of the 
bet in the one line play version. 

Lines 2000-2090 This is the routine 
which actually draws the machine. Notation 
should be made here that the paychart is not 
truly complete. Most combinations will pay 
with a bar (single or double) on the last reel. I 
did not have room to fit this on the screen. 

Lines 2300-2390 This animates the handle 
by first erasing the knob and redrawing it lower 
and doing the reverse by drawing a section of 
the handle and the knob one space higher. This 
routine also clears any old wins. 

Lines 2400-2495 This is the payout 
routine for the single line version. 

Lines 2600-2690 This is the super jackpot 
routine and is triggered if three of the "seven" 
symbols appear on the center line with maxi- 
mum bet in the one line version and on the fifth 
line with maximum bet in the five line version. 
This has first an explosion sound, a slower siren 
than the regular windsound followed by another 
explosion. Then the words "SUPER JACK- 
POT!!!" are flashed. 1 suggest that you type in 
"GOSUB 2600" from the direct mode as you 
won't be seeing much of this routine unless you 
change the odds. 

Lines 2950-3180 This animates the spin of 
the reels. I had originally tried to make the reels 
turn two full spins plus a random bit extra, but 
this slowed down the action of the game too 
much, doing it from BASIC. Therefore we just 
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assume those spins without showing them and 
take a certain number plus a random amount. 
From this point the reels are moved visibly by 
a fixed number of spaces for each reel. 

Lines 4000-4080 This is the pay routine for 
the five line version. □ 



1 REM COLOR SLOT MACHINE 

2 REM BY MICHAEL A. IUIN5 

3 REM NOVEMBER 1981 

4 G05UB 32000 

10 DIM LSC6O),M$t60),R$<60),PAY$(9) :0P 
EN »2 , 12, , "5 : " : MINS0UND=1000 : FPAY=400 
0:5PIN=2950 

11 PAY$=" hk_-«»2[2":CH=97:DB=146:5B=16 
_ 

15 L$-"abcdefghBfcibghefcd:Zgh£dBef i jc 
jhScdefcdcdabghefcdcdefgh'' 



lefghefabghefcdZZefcdabefghi 

lefabeffflghabcdefcd" 

— Icdi 



dghcdgh; 

20 M$="ab| 

jefabcdghL. 

25 R$="ghcdeCTghefghefcdScdcdef| 

jghWtdghZIcdcdefghefllefefcd" 

30 BANKROLL=lO0:BET=O:WIN=O:L=l:M=l:R= 

1 

40 GOSUB 2000: REM DRAM MACHINE 

30 P05ITI0N 20,20:? "1 LINE PLAY" 

100 POSITION 20,22:PRINT "BANKROLL:"^ 

ANKROLLlPOSITION 20,23:PRINT "BET:";BE 

T;:P0SITI0N 30,23:PRINT "MIN:";MIN; 

120 IF BET<5 THEN POSITION 20,21:PRINT 



PLAY 1 TO 5 COINS 



125 IF BANKR0LL=0 OR BET-5 THEN 145 
130 IF 5TRIG(O)=0 THEN BETzBET+l : GOSUB 
1300 : SOUND , 50, 10, 14 : BANKROLLS ANKRO 
LL-1 

135 IF PEEK<53279)=3 AND BET=0 THEN 50 

145 IF BET=5 THEN POSITION 20,21:? " 

150 FOR DELAY=1 TO 5:NEHT DELAY 

160 POSITION 24,23:PRINT BET; 

165 SOUND 0,0,0,0 

168 POSITION 29,22:PRINT BANKROLL;*' "; 

170 IF STICK<0)=15 THEN 120 

175 IF BET=0 THEN 120 

180 POKE 77,0 

290 GOSUB 230O;REM PULL HANDLE 

310 GOSUB SPIN 

311 LOCATE 5,8,LM:P0SITI0N 5,8:? CHR$ ( 
LMJ 

312 LOCATE 8, 8 , MM: POSITION 8,8:? CHR$ ( 
MM) 

313 LOCATE 11 , 8 . RM: POSITION 11,8:? CHR 
SCRM) 

315 GOSUB 2400 

320 IF MIN>0 AND I4IN<BET*10 THEN DUR=2 

: GOSUB MINSOUND 

325 IF WIN>=BET*10 AND WIN<BET*25 THEN 
DUR=3: GOSUB MINSOUND 

326 IF WIH>=BET*25 AND WIN<-BET*50 THE 
N DUR=5: GOSUB HINSOUND 

327 IF MIN>BET«50 AND MIN<20O0 THEN DU 
R=10: GOSUB HINSOUND 

330 BET=0:POSITIOH 24,23:PRINT BET;'* " 

340 IF BANKROLL>0 THEN 120 

350 POKE 82 20 

360 FOR I=o'tO 23:P05ITI0N 20,1:? " 

" ' : NEXT I 
370 POSITION 28 J 0:?""I , M SORRY":? "YOU 

HADE GONE BROKE":? "IF YOU W ISH TO BU 
Y MORE":? "CHA NGE P RESS SESi" 
380 ? "PRESS BJMJEB IF YOU":? "WISH TO 

QUIT" 
390 IF PEEKC53279)<>6 AND PEEKC53279X 
>5 THEN 390 
400 IF PEEKC53279J-6 
TO 11 

420 POSITION 28,18:? "THANK YOU":? 
R PLAYING, BETTER":? "LUCK NEXT TIME 
END 
500 POSITION 20,20:? 



THEN POKE 32, 2: GO 
FO 



'5 LINE PLAY" 



510 BET=l:GOSUB 1300:BET-8 

520 POSITION 20,22:? "BANKROLL :"; BANKR 

OLL;:POSITION 20,23:? "BET :";BET; :POSI 

TION 30,23:? ,, WIN:";WIN; 

530 IF BET<5 THEN POSITION 20,21:PRINT 



PLAY 1 TO 5 COINS 



532 FOR DELAY=1 TO 5:NEXT DELAY 

535 IF BANKROLL=0 OR BET=5 THEN 560 

540 IF 5TRIGCO)=0 THEN BET=BET+1 : BANKR 

0LL=BANKR0LL-1:S0UND 0,50,10,14 

545 IF PEEK (53279) =3 AND BET^O THEN 90 

550 IF BET=1 THEN POSITION 4,8:PRINT " 

II ■ 

552 IF BET=2 THEN POSITION 4,6:PRINT " 

■"; 

554 IF BET=3 THEN POSITION 4,18:PRINT 

II II • 

556'lF BETr.4 THEN POSITION 4,4:PRIHT " 

"■■•J I ■ 

558 IF BET=S THEN POSITION 4,12:PRINT 

II II a 

560'POSITION 29,22:PRINT BANKROLL;" "; 

:P05ITI0N 24,23:PRINT BET; 

562 IF BET=5 THEN POSITION 20,2I:PRINT 
■ i ii 

565 FOR DELAY=1 TO 20:NEXT DELAY 

566 SOUND 0,0,0,0 

570 IF 5TICK(0)=15 THEN 530 

575 IF BET=0 THEN 530 

588 GOSUB 2300 

590 GOSUB SPIN 

6O0 LOCATE 5,8,LM:P0SITI0H 5,8:? CHR$C 

LM):LOCATE 8, 8, MM:PO5ITI0H 8,8:? CHR$C 

MM) .'LOCATE 11 , 8, RM: POSITION 11,8:? CHR 

StRM) 

605 LOCATE 5, 6 , LT : POSITION 5,6:? CHR$ C 

LT):LOCATE 8, 6, MT : POSITION 8,6:? CHR$ ( 

MT):LOCATE 11, 6, RT : POSITION 11,6:? CHR 

$CRT) 

618 LOCATE 5,10,LB:P0SITI0N 5,10:? CHR 

$CLB):LOCATE 8, 10 , MB : POSITION 8,10:? C 

HRSCMB) : LOCATE 11 , 10, RB : POSITION 11,18 

:? CHR$(R6) 

620 IF CLM=CH AND MMOCH) OR (LM=CH AN 
D MM=LM) THEN F=LM: 5=NM: T=RM: GOSUB FPA 
Y 

621 IF LM=DB AND MM=SB AND CRM=DB OR R 
M=SB) THEN F=LM:S=MM:T=RM:G05UB FPAY 

622 IF LM=MM AND RM=MM THEN F=LM:S=MM: 
T=RM:GOSUB FPAY 

623 IF LM-DB AND (MM=D6 OR MM=5B) AND 
RM=5B THEN F=LM: S=MM: T=RM: GOSUB FPAY 

624 IF LMOCH AND LMODB AND LMOSB AN 
D LMO105 THEN IF LM=MM AND (RM=DB OR 
RM=SB) THEN 629 

625 IF LM=SB AND MM=DB AND CRM=DB OR R 
M=SB) THEN F=LM:5=MM:T-RM:G0SUB FPAY 

626 IF LM=5B AND CMM=DB OR MM=SB) AND 
RM=DB THEN F=LM: S=MM: T=RM: GOSUB FPAY 
628 GOTO 638 

623 FrLM:5=MM:T-RM:G0SUB FPAY 

630 IF BET=1 THEN 680 

631 IF LT=DB AND MT=5B AND CRT=DB OR R 
T=SB) THEN F=LT:S-MT:T=RT:G05UB FPAY 

632 IF (LT=CH AND MTOCH) OR tLT=CH AN 
D MT = CH) THEN F=LT : S=MT : T=RT : GOSUB FPA 
Y 

633 IF LT=DB AND CMT=5B OR MT=DB) AND 
RT=5B THEN F=LT : 5=MT : T=RT : GOSUB FPAY 

634 IF LT=MT AND RT=MT THEN F=LT:S=MT: 
T=RT:GOSUB FPAY 

635 IF LT=SB AND MT=DB AND {RT=DB OR R 
T = SB) THEN F=LT:5rMT:T=RT: GOSUB FPAY 

636 IF LTOCH AND LT<>105 AND LTODB A 
ND LTOSB THEN IF LT=MT AND (RT = DB OR 
RT=SB) THEN 640 

637 IF LT=SB AND CMT=SB OR MT=DB) AND 
RT=DB THEN F=LT : 5=MT : T=RT : GOSUB FPAY 

638 GOTO 642 

640 F=LT:S=MT:T=RT: GOSUB FPAY 

642 IF BET=2 THEN 688 

643 IF LB=DB AND MB=SB AND CRB-DB OR R 
B = 5B) THEN F=LB : 5=MB : T=RB : GOSUB FPAY 

644 IF CLB=CH AND MBOCH) OR tLB = CH AN 
D MB=CH) THEN 652 

645 IF LB-OB AND CMB=DB OR MB=SB) AND 
RB=SB THEN F=LB : S=MB : T=RB : GOSUB FPAY 
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646 IF LB=MB AND RB=MB THEN 652 

647 IF LB=SB AND MB=DB AND (RB=DB OR R 
B=SBJ THEN F=LB:S=MB:T=RB:G85UB FPAY 

648 IF LBOCH AND LBOl85 AND LBODB A 
ND LBOSB THEN IF LB=MB AND CRB=DB OR 
RB=5BJ THEN 652 

64? IF LB=SB AND (NB=DB OR MB=5BJ AND 
RB=DB THEN F=LB : S=MB : T=RB : G8SUB FPAV 
650 GOTO 654 

652 F=LB:S=MB:T=RB: GOSUB FPAV 

654 IF BET=3 THEN 680 

655 IF LT=DB AND MN=SB AND CRB=DB OR R 
B=SB) THEN F=LT:5=NM:T=RB: GOSUB FPAY 

656 IF CLT=CH AND MM=CH) OR CLT=CH AND 
MMOCH) THEN 664 

657 IF LT=DB AND (HM=DB OR MM=SB) AND 
RB=SB THEN F=LT : S=MM: T=RB : GOSUB FPAY 

658 IF LT=MM AND RB=MM THEN 664 

653 IF LT=SB AND MH=DB AND CRB=DB OR R 
B=SB) THEN F=LT:5=MM:T=RB: GOSUB FPAY 

660 IF LTOCH AND LT<>185 AND LTODB A 
ND LTOSB THEN IF LT=MM AND CRB=DB OR 
RB=5B3 THEN 664 

661 IF LT=SB AND (NM=DB OR MM=3B) AND 
RB=DB THEN F=LT : 5=MM: T=RB : GOSUB FPAY 

662 GOTO 665 

664 F=LT:5=MM:T=RB: GOSUB FPAY 

665 IF BET=4 THEN 688 

666 IF LB=185 AND MM=LB AND RT=MM THEN 
HIN=MIN+2888: GOSUB 2600 

667 IF LB=DB AND MM=SB AND (RT=DB OR R 
T=5B) THEN F=LB : S=MM: T=RT : GOSUB FPAY 

668 IF CLB=CH AND NNOCH) OR CLB=CH AN 
D MM=CH) THEN 676 

663 IF LB=DB AND CNM=DB OR HM=5B) AND 
RT=SB THEN F=LB : S=MM: T=RT : GOSUB FPAY 

670 IF LBO105 AND LB=MM AND RT=MM THE 
N 676 

671 IF LB=SB AND MM=DB AND CRT=DB OR R 
T=SBJ THEN F=LB:S=MM:T=RT: GOSUB FPAY 

672 IF LBOCH AND LB<>105 AND LBODB A 
ND LBOSB THEN IF LB=HN AND CRT=DB OR 
RT=5B) THEN 676 

673 IF LB=SB AND (NM=DB OR MN=SB) AND 
RT=DB THEN F=LB : S-MM: T=RT : GOSUB FPAY 

674 GOTO 688 

676 F=LB:5=MM:T=RT: GOSUB FPAY 

680 BANKROLL=BANKROLL+HIH: POSITION 29, 

22:? BANKROLL; 

685 IF MIN>8 AND MIN<10 THEN DUR=2:G0S 

UB MINSOUND 

690 IF MIN>=10 AND MIN<25 THEN DUR=3:G 
OSUB MINSOUND 

691 IF WIN>=25 AND MIH<=58 THEN DUR=5: 
GOSUB MINSOUND 

695 IF WIN>58 AND UIN<2080 THEN DUR=10 

: GOSUB MINSOUND 

780 POSITION 4,4:? " J ";: POSITION 4,6:? 

,,J "; :P0SITI0N 4,18:? "J"; : POSITION 4, 

12:? "h"; 

785 BET=0:P05ITI0N 24,21:PRINT BET; 

718 IF BANKR0LL>0 THEN 538 

728 GOTO 358 

1808 REM MINNER SOUND 

1018 FOR 1=1 TO DUR 

1815 FOR S=48 TO 98 STEP 5 

1828 SOUND 8,5,18,18 

1825 NEXT S 

1838 FOR S=98 TO 40 STEP -5 

1835 SOUND 8, S, 18, 18 

1848 NEXT S 

1858 NEXT I 

1855 SOUND 8,8,8,8:RETURN 

1388 PS=2 

1318 FOR 1=1 TO 8 

1328 P8SITI0H 34, PS:? ASC (PAYS CI, IJ J*B 
g-j-.n ■■. 

1325 PS=P5+2 

1330 NEXT I 

1348 IF BET<5 THEN POSITION 34,18:? AS 

CtPAY$C9,9))#BET;" ";:RETURN 

1358 IF BET=5 THEN POSITION 34,18:? AS 

CCPAYSC9, 9)3*18; 

1368 RETURN 

2888 POKE 752,1:? CHR$ C125J : POSITION 2 

,2:print "hH-t-H-H-H-l-H-h ab P 

AYS 2" 



2885 POKE 756,PEEK(186J+1:SETC0L0R 1,8 
,8:SETC0L0R 2.8.15 

2810 print ::pj-ttttjtt^- 



2812 PRINT 

PAYS 5" 
2814 PRINT 
2816 PRINT 

PAYS 18" 
2828 PRINT 
2825 PRINT 

PAYS 14" 
2838 PRINT 
2835 PRINT 

PAYS 18" 
2848 PRINT 

2845 PRINT 
PAYS 28" 

2846 PRINT 
2848 PRINT 

PAYS 28" 
2858 PRINT 
2855 PRINT 

PAYS 58" 
2868 PRINT 

2865 PRINT 
PAYS 288" 

2866 PRINT 



■w 


J 
J 


J 
J 


nt " 


"W. 


J 

■ 


J 
■ 


j -» r 


■-W 


J 
J 


J 


nir 



ab ab 



Cd Cd Cd 



ef ef ef 



gh gh gh 



'tfn-H-nil-H-W I" 



MIX BARS 



2868 
2869 
2878 
2880 
2898 
2180 
2118 
2126 
2138 
2146 
2268 



::KI?WHH?toP"___ 
= KEmm«ir 

"ttn-H-H-HH-Ftt"; 



i j i j i j 



PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

POKE 752,1 :F8R 
POSITION 28,1 
PRINT " 
NEXT I 
RETURN 

FOR 1=1 TO 5 
2218 P OSITION 28,16 

W35EB"; 

2228 FOR DELAY=1 TO 
2238 POSITION 28,16 

COINS" " 
2248 FOR DELAY=1 TO 

NEXT I 

RETURN 

POKE 752,l:P0SITI0N 

FOR 1=1 TO 5 

PRINT " 4+i*"; 

FOR DELAY=1 TO 

NEXT I 

FOR 1=1 TO 5 

PRINT "|t*l*"; 

FOR DELAY=1 TO 

NEXT I 

MIN=0: POSITION 

RETURN 

IF LM=CH 



1=19 TO 23 



: PRINT 



2256 

2260 

2388 

2318 

2328 

2325 

2338 

2348 

2356 

2355 

2368 

2378 

2396 

2486 

2 

2416 

2420 



AND 

AND 
AND 

AND 



18.-NEXT DELAY 
PRINT "PLAY 1 TO 5 

10:NEXT DELAY 



17,7 



20 .'NEXT DELAY 



28:NEXT DELAY 
34,23:? MIN;" "; 
MMOCH THEN WIN=BET* 



MM=CH THEN MIH=BET*5 
MM=LM AND RM=MM THEN 



IF LM=CH 
IF LM=99 

MIN=BET*18 
2425 IF LM=99 AND MM=99 AND CRM=DB OR 
RM=5B) THEN MIN=MIH*18 

2438 IF LM=161 AND MM=LM AND RH=MM THE 
N MIN=BET*14 

2435 IF LM=161 AND MM=161 AND (RM=DB 6 
R RM=SB) THEN MIN=BET*14 

2448 IF LM=183 AND MM=LM AND RM=MM THE 
N MIN=BET*18 

2445 IF LM=183 AND MM=183 AND (RM=DB 
R RM=SB) THEN MIN=BET*18 
2450 IF LM=DB AND MM=LM AND RM=MM THEN 

MIN=BET*58 

2452 IF LM=SB AND NM=LM AND RM=MM THEN 
MIN=BET*28 

2453 IF LM=DB AND MM=SN AND CRM=DB OR 
RM=SB) THEN MIN=BET«28 

2454 IF LM=DB AND CMM=DB 8R MM=SB) AND 
RM=SB THEN MIN=BET*26 

2455 IF LM=SB AND MM=DB AND CRM=DB 6R 
RM=5BJ THEN MIN=BET*28 

2456 IF LM=SB AND CMM=DB OR NM=3B) AND 
RM=DB THEN MIN=BET*28 

2466 IF LM=185 AND MM=LM AND RM=MM AND 

BET<5 THEN MIN=BET*288 
2470 IF LM=185 AND MM=LM AND RM=MM AND 

BET=5 THEN MIN=BET*28B8 : GOSUB 2688 
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2480 POSITION 34,23:PRINT WIN;" ";:BAN 

KROLL=BANKROLL+WIN 

2490 POSITION 29,22:PRINT BANKROLL;" " 



2495 
2600 
2605 
2618 
2615 
2628 
2625 
2638 
2648 
2645 
2650 
2655 
2660 
2665 
2678 
2672 
2673 
2674 

H"; 

2675 
2676 
2678 



RETURN 

FOR 1=0 TO 280 STEP 5 

SOUND 0,1,0,15 

NEXT I 

FOR 1=1 TO 5 

FOR S=40 TO 90 STEP 2 

SOUND 0,5,10,10 

NEXT S 

FOR S=90 TO 40 STEP -2 

SOUND 0,5,10,10 

NEXT 5: NEXT I 

FOR 1=1 TO 20 

FOR 1=0 TO 200 STEP 5 

SOUND 0,1,8,15 

NEXT I:SOUND 8,8,8,8 

FOR 1=1 TO 18 

FOR DELAY=1 TO 40: NEXT DELAY 

POSITION 28,28:? 



SUPER JACKPOT 



FOR DELAY=1 TO 20:NEXT DELAY 
FOR DELAY=1 TO 20:NEXT DELAY 
POSITION 20,20:? " 



2688 NEXT I 

2685 POSITION 20,28 :PRINT " 
ii ■ 

2690 RETURN 

2888 FOR 1=1 TO 288 STEP 25 

2810 SOUND 0,1,6,8 

2828 NEXT I 

2838 SOUND 8, 8 . 0, : RETURN 

2958 L=L+INT(RND(03#63*2:IF L>59 THEN 

L=L-68 

2960 N=M+16+INT(RND (03*63*2: IF M>59 TH 

EN M=M-68 

2970 R=R+22+INT(RND (03*63*2: IF R>59 TH 

EN R=R-60 

3000 POKE 77,8:F0R X=l TO 15 

3810 POSITION 11,10:PRINT RS(R,R+13:R= 

R+2:IF R>59 THEN R=l 

3820 POSITION 11,8:PRINT R$ CR, R + 13 : R=R 

+2: IF R>59 THEN R=l 

3838 POSITION 11,6:PRINT RS(R,R+i) 

3848 R=R-2:IF R<1 THEN R=R+68 

3845 IF X=ll THEN GOSUB 2808 

3858 IF X>18 THEN 3110 

3868 POSITION 8,10:PRINT MS (M, M+l) : M=N 

+2: IF M>59 THEN M=l 

3870 POSITION 8,8:PRINT MS (M, M+13 : M=M+ 

2: IF M>59 THEN M=l 

3888 POSITION 8, 6: PRINT MS (M, M+l) 

3188 M=M-2:IF M<1 THEN M=M+60 

3185 IF X=6 THEN GOSUB 2888 

3118 IF X>5 THEN 3168 

3128 POSITION 5,10:PRINT LS (L , L + 13 : L=L 

+2:IF L>59 THEN L=l 

3130 POSITION 5,8:PRINT LS tL, L+1J : L=L+ 

2: IF L>59 THEN L=l 

3148 POSITION 5,6:PRINT LSCL,L+1) 

3150 L=L-2:IF L<1 THEN L=L+60 

3160 NEXT X 

3165 GOSUB 2888 

3170 L=L-2:IF L<1 THEN L=L+60 : M=M-2 : IF 

M<1 THEN M=N+60:R=R-2:IF R<1 THEN R=R 
+60 

3180 RETURN 

4900 IF CHRS(F3="a" AND CHRS(S3<>"a" T 
HEN M=2 

4010 IF F=CH AND S=CH THEN M=5 
4020 IF F=99 AND S=99 AND T=99 THEN M= 
10 

4025 IF F=99 AND S=99 
B3 THEN H=1B 
4030 IF F=101 AND S=101 AND 

H=14 
4035 IF F=101 AND 5=101 AND 
=SB) THEN M=14 
4840 IF F=103 AND 5=103 AND T=183 THEN 

U=18 
4845 IF F=183 AND 5=103 AND (T=DB OR T 
= SB3 THEN M=18 

4050 IF F=DB AND S=F AND T=S THEN M=20 
4052 IF F=DB AND S=SB AND CT=DB OR T=S 
B) THEN M=20 



AND CT=DB OR T=S 



T=101 THEN 
CT=DB OR T 



4053 IF F=DB AND CS=DB OR S=SB) AND T= 
SB THEN U=20 

4054 IF F=5B AND S=DB AND CT=DB OR T=S 
B3 THEN M=20 

4055 IF F=SB AND CS=DB OR 5=SB3 AND T= 
DB THEN H=20 

4058 IF F=SB AND S=F AND T=S THEN W=29 

4060 IF F=105 AND S=F AND T=5 THEN M=2 

00 

4065 HIN=MIN+M: POSITION 34, 23: PRINT HI 

N; 

4080 RETURN 

18880 U=0:FOR 1=0 TO 200 STEP 25 

10005 SOUND 0,1,0,15 

10006 SOUND 1,I,2,15:S0UHD 2,1,4,15 
10010 NEXT I 

10015 SOUND 0,8,0,0:SOUND 1,0,0,0:50UN 
D 2,8,0,0 
10090 STOP 
20000 FOR 1=1 TO 5 
20005 FOR S=0 TO 200 STEP 5 
2O010 SOUND 0,5,8,15 
20015 NEXT S 

20028 FOR S=280 TO STEP -5 
20025 SOUND 0,5,8,15 
20O30 NEXT S 
2O035 NEXT I 
2O040 SOUND 0,0,0,0 
20045 STOP 

32000 POKE 106,PEEK(1063-5:GRAPHICS 2: 
START= (PEEK (1063 +13*256 : POKE 756, START 
/256:P0KE 752,1 

32O05 DIM XFRSC383 : RESTORE 32016:F0R X 
=1 TO 38:READ N : XFRS CX, X3 =CHRS (N) : NEXT 
X 

32010 ? «6;" JHi jjjfjHHH HHHHt" 

32011 ? »6;" * sedge *" 

32012 ? tt6;" * slot *■■ 
32813 ? »6;" * aggJSHJE *" 

32014 ? t»6;" KKKKKKKKKKKK " 

32015 ? "BY MICHAEL A. IUINS" 

32016 DATA 104,169,0,133,203,133,205,1 
69,224,133,206,165,106,24,105,1,133,20 
4,160,0,177,205,145,203,200 

32017 DATA 208,249,238,284,230,206,165 
,206,201,228,208,237,96 

32020 Z=USR (ADR (XFRS33 : RESTORE 32100 

32030 READ X : IF X=~l THEN RESTORE : RET 

URN 

32040 FOR Y=0 TO 7: READ Z:P0KE X+Y+STA 

RT,Z:NEXT Y:GOTO 32030 

32100 DATA 520,170,170,170,170,170,170 
,170,170 

32101 DATA 528,178,85,170,85,170,85,17 
0,85 

32102 DATA 536,170,0,170,0,170,0,170,8 
32183 DATA 544,168,160,160,160,10,10,1 
0,10 

32104 DATA 552,88,80,88,88,5,5,5,5 

32105 DATA 560,128,128,160,160,168,168 
,170,170 

32106 DATA 568,2,2,18,10,42,42,170,178 

32107 DATA 584,234,184,46,139,46,186,2 
24,170 

32108 DATA 600,167,28,114,200,114,156, 
39,170 

32109 DATA 608,178,0,170,255,255,170,8 
,170 

32110 DATA 616,1,171,7,175,31,191,127, 
255 

32111 DATA 624,255,127,191,159,175,167 
,171,169 

32112 DATA 776,2,82,82,81,1,81,88,88 

32113 DATA 784,170,168,128,64,64,64,0, 


32114 DATA 792,1,5,5,21,21,5,5,1 

32115 DATA 888,64,80,80,84,84,80,80,64 

32116 DATA 808,2,10,10,42,42,18.18,2 

32117 DATA 816,128,168,160,168,168,168 
,160,128 

32118 DATA 824,1,2,1,2,5,10,21,3 

32119 DATA 832,0,128,64,128,64,160,80, 
128 

32128 DATA 840,85,85,64,0,1,5,4,20 

32121 DATA 848,85,84,4,16,80,64,0,0 

32122 DATA -1 
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CHECKSUM DATA 

(See pgs. 7-10) 

1 DATA 536,632,899,895,184,367,678,879 

,220,295,143,351,720,17,548,7384 

130 DATA 158,933,148,360,909,92,994,46 

8,797,966,134,68,248,261,668,7204 

315 DATA 806,170,901,19,825,100,364,78 

6,155,968,421,996,516,310,354,7691 

510 DATA 331,142,28,364,552,940,749,33 

3,334,453,342,473,808,774,350,6973 

566 DATA 101,487,816,825,96,930,995,30 

6,27,725,148,803,578,759,836,8432 

628 DATA 726,175,819,805,105,911,237,8 

39,650,945,734,214,825,612,890,9487 

645 DATA 646,76,646,390,680,737,111,83 

1,733,26,811,137,767,613,838,8042 

662 DATA 746,192,836,995,720,954,798,5 

90,747,461,825,752,161,432,797,10006 

690 DATA 996,245,74,90,719,369,720,55, 

744,95,402,526,271,413,518,6237 

1050 DATA 489,246,288,158,568,667,496, 

408,565,794,71,732,697,143,187,6501 

2016 DATA 760,436,815,167,822,168,181, 

736,991,278,542,614,61,168,807,7546 

2069 DATA 720,241,977,790,616,427,15,4 

92,788,147,589,373,111,375,497,7158 

2260 DATA 793,627,151,542,387,498,154, 

528,390,501,794,799,130,865,610,7769 

2425 DATA 469,248,664,267,687,646,662, 

567,691,520,688,796,269,418,88,7672 

2495 DATA 812,150,565,505,170,97,432,5 

37,289,434,540,368,156,571,407.6033 

2672 DATA 361,399,971,401,403,22,512,1 

64,808,356,326,512,260,328,643,6460 

2970 DATA 689,592,351,313,607,554,746, 

858,246,17,304,508,372,576,227,6960 

3130 DATA 999,295,504,542,960,928,794, 

496,822,983,821,378,545,399,564,18030 

4050 DATA 649,949,978,953,12,710,997,8 

69,793,951,446,245,662,525,488,18227 

20000 DATA 262,370,531,689,687,486,678 

,683,565,495,288,843,671,391,128,7767 

32013 DATA 277,683,590,657,594,768,663 

,960,69,606,40,500,932,128,17,7484 

32107 DATA 702,619,597,366,154,959,307 

,428,122,866,127,406,371,919,754,7697 

32122 DATA 832,832 
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HALLS OF 
THE LEPRECHAUN KING 



16K Cassette 24K Disk 



by Keith Evans and Ted Adkinson 



Alas! The Leprechaun King has awakened from 
his long slumber, and he has taken all of the world's 
gold. Every nation is bankrupt. The world's only 
chance is Smiley, the famous gold miner. With his 
dexterity and wit, Smiley just might be able to recap- 
ture all of the gold, pick up the magic key, and put 
the gold in a sanctuary. But unless he's careful, the 
Leprechaun King will give him the Midas touch, 
turning him into a 24-carat gold tombstone. 

When the game begins, take some time to notice 
where everything is positioned. Smiley is in the 
upper middle of the screen, and the Leprechaun King 
is in the upper right hand corner. Throughout the 
maze there are pots of gold. To collect one, just touch 
it. If you look in the lower right corner, you will see 
the magic key surrounded by walls. Collect about 
half of the gold, and the key will move to the center 
of the maze. 

After Smiley gets the key and all of the gold, he 
goes to the sanctuary chamber at the far lower right 
corner, directly to the left of the cross. Push the trig- 
ger button, and a section of the wall will disappear. 
This is the entrance to the sanctuary where Smiley 
has to store the gold. Deposit gold by simply touch- 
ing the cross. 

Another important part of this game is the gold 
tombstones. When Smiley loses a life, a tombstone 
appears as a resting place for all of the gold he was 
carrying. A new Smiley has to touch the tombstone 
to collect the gold that the old Smiley was carrying. 

You start with three lives. The game is over when 
you use them all up. To see how many lives you have 
left, look in the upper right or left hand corner of the 
screen where vertical bars indicate lives remaining 
(including the one currently in use). 

An expert player might get to the third maze and 
find it is totally different. Two clues about this maze: 
the key appears in the lower middle of the screen, 
and the section of disappearing wall lies directly 
below the cross. □ 



The program. 

Lines 1-10 — Variable initialization, title 

Lines 120-372 — Character set redefinition 

Lines 395-507 — Maze drawing, placing of 
the gold 

Lines 510-624 — Joystick reading, move- 
ment of Smiley 

Lines 630-999 — The Leprechaun's logic 

Lines 1000-1120 — Maze and character set 
data 

Lines 1150-1154 — Lives left indicator 

Lines 1500-1510 — "Midas Touch" sound 
effects 

Lines 2000-2020 — Counts bags of gold 
taken, places key in the maze if enough has been 
taken 

Line 2500 — Draws tombstone, checks men 
left 

Lines 2510-2570 — Erases Smiley's trail 

Line 2575 — Starts game over when all men 
are used up 

Lines 2610-2700 — Puts the gold Smiley 
was carrying in a tombstone when he is killed 

Lines 3000-3050 — Subroutine to flash 
maze 

Lines 4000-4350 — Actually moves Lepre- 
chaun. 

Line 5000 — Plays "Oh, when the saints...," 
clears screen 

Lines 6000-6007 — Displays score at end 
of game 

Line 6010 — Clears screen 

Lines 7000-8030 — Data for "Oh, when 
the saints. . . " 

Lines 9000-9130 — Subroutine to play 
"Oh, when the saints. . ." 

Lines 9150-9260 — Plays "Good night, 
ladies. . . " 
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Lines 9270-9290 — Data for "Good night, 
ladies. . ." 

Line 9300 — Sound effects of gold being 
cashed in 

Lines 10000-10020 — Color rotation sub- 
routine 



i CLR :X=1B:Y=1:MX=17:MY=2:X1=18:Y1=1 

5 GRAPHICS 2+16:? tt6;" ":? tt6;" " 

6 ? U6;" THE HALLS OF THE":? «8;" L 
EPRECHAN KING":? «6;"* " 

7 ? tt6j" created":? »6;" " 

8 ? tt6,«" by":? «6;" " 

9 ? ^■" . J^FFi'KJTJ 5P 5 " ,, ' } m ' r " " :? 

18 FOR ZZZ = i TO 28:G0SUB 18888 :NEXT ZZ 

Z 

128 POKE 186,PEEKC186J-2 

138 GRAPHICS 1+16 

158 A=PEEKC186)*256 

198 SET=PEEKC186) 

288 POKE 756, SET 

228 FOR C=8 TO 7 

238 POKE A+C,8 

248 NEXT C 

258 FOR C=8 TO 63 

268 READ CHAR 

278 POKE A+C,CHAR 

288 NEXT C 

363 FOR C=64 TO 71:P0KE A+C,146:NEXT C 

378 FOR C=72 TO 79:P0KE A+C,144:NEXT C 

371 FOR C=88 T8 87:P0KE A+C,128:NEXT C 

372 FOR C=88 TO 95:READ CHAR'.POKE A + C, 
CHAR:NEXT C 

395 IF TIH>=1 AND TIM<3 THEN RESTORE 1 
848 

396 IF TIM>=3 THEN RESTORE 7888 

397 TIM=TIM+I 

398 HN=2:IF TIK=I 8R TIM=5 THEN MK=1 
488 READ GR1, GR2, GR3, GR4 

418 IF GR1=-1 THEN GOTO 446 

428 COLOR 35:PL0T GR1, GR2 : DRAHTO GR3,G 

R4 

438 GOTO 488 

448 READ 61, G2 

458 IF Gl=-1 THEN 588 

468 COLOR 138:PL0T G1,G2 

476 GOTO 448 

588 IF TIK<4 THEN COLOR 35:PL0T 3,2:PL 

OT 7,3:PL0T 6,3:PL0T 1,16:C0L0R 32:PL0 

T 12,14 

582 BAGS=8:DBAGS=6:G0LD=8:KEY=8:IF TIM 
<4 THEN COLOR 37:PL0T 18,22 

583 IF TIM<4 THEN RESTORE 1128 

584 IF TIM>=4 THEN RESTORE 7898:L6CATE 
18,11,ZZ:IF ZZ=32 THEN COLOR 37:PL0T 

18,11 

586 X=1Q:Y=1:READ RMX:READ RMY:KX=RMX: 
MY=RMY : Xl = 18 : Yl = l 

587 READ SDO, SD01, SD, SD1, SC, SC1,K,E, AX 
,AY,NB 

518 X1=X:Y1=Y 

515 POKE 711,251 

516 POKE 77,8 

528 IF STICK C8J =15 THEN GOTO 588 

538 J=STICKC8J 

548 IF J=ii THEN X=X~1 

558 IF J = 7 THEN X = X + 1 

568 IF J=14 THEN Y=Y~1 

578 IF J=13 THEN Y=Y+1 

588 LOCATE X,Y,I:IF 1=35 THEN X=X1 : Y=Y 
1 

598 IF 1=138 THEN GOSUB 2888 
595 IF 1=38 THEN GOLD=GOLD+DGOLD :BAG5= 
DBAGS:FOR ZZ=-38 TO 38:S8UND 8,AB5fZZJ 
,18,8:NEXT ZZ: SOUND 6,8,8,8 



688 IF 1=1 THEN GOSUB 1588:GOT0 2588 

685 IF 1=37 THEN KEY=1 : ZZZ=68 : FOR ZZ=6 

8 TO 48 STEP -1 : SOUND 8, ZZ, 18, 8 : SOUND 

l,ZZZ,18,8:ZZZ=ZZZ-l:NEXT ZZ 

666 SOUND 6,8,8,6:S0UND 1,8,6,8 

615 IF J<>15 THEN COLOR 32:PL0T XI, Yl 

628 COLOR 36: PLOT X,Y 

622 IF X=SDO AND Y=5D01 AND KEY=I AND 
STRIGt8)=8 THEN COLOR 32:PL0T SD,SD1 

623 IF X=SC AND Y=SC1 THEN PGOLD=PGOLD 
+GOLD:COLOR 39:PL0T SC, SCI : X=AX : X1=X : Y 
=AY:Y1=Y:G0LD=8:G0SUB 9388 

624 IF BAGS<=N8 AND 1=39 THEN 5886 
638 MK=KM*-1 

648 IF MM=1 THEN 518 

658 LOCATE MX"1,MY,D1 

668 L6CATE MX,MY-1,D2 

678 LOCATE MX+1,MY,D3 

688 L8CATE MX.MY+1.D4 

696 IF XOMX AND YOKY THEN 756 

788 IF X=MX AND KY>Y THEN FD=2:FD1=8 

716 IF X=MX AND KY<Y THEN FD=4:FD1=8 

728 IF Y=HY AND MX>K THEN FD=i:FDi=0 

738 IF Y=MY AND MX<X THEN FD=3:FD1=8 

748 G0T8 798 

758 IF MX<X THEN FD=3 

768 IF MX>X THEN FD=1 

778 IF MY<Y THEN FD1=4 

788 IF MY>Y THEN FD1=2 

798 REM 

795 IF FD1<>8 THEN 988 

888 IF FD=4 AND D4<>35 THEN RD=4:G0T0 

1158 

818 IF FD=3 AND D3<>35 THEN RD=3:G8T6 

1150 

828 IF FD=2 AND D2<>35 THEN RD=2:G8T0 

1150 

838 IF FD=1 AND Dl<>35 THEN RD=1:G0T8 

1150 

848 RD=INTfRNDC63#4J+l 

858 IF RD=i AND Dl=35 THEN 848 

868 IF RD=2 AND D2=35 THEN 848 

878 IF RD=3 AND D3=35 THEN 848 

888 IF RD=4 AND D4=35 THEN 848 

898 G8T0 1158 

988 KAYS=8:IF FD=1 AND Dl<>35 THEN WAY 

S=MAYS+1:W1=1 

982 IF FD=2 AND D2<>35 THEN HAYS=WAYS+ 

l:W2=i 

984 IF FD=3 AND D3<>35 THEN MAYS=WAYS+ 

1:M3=1 

986 IF FD=4 AND D4<>35 THEN HAYS=KAYS+ 

l:U4=l 

988 IF FD1=1 AND Dl<>35 THEN MAY5=WAYS 

+l:Hll=l 

918 IF FD1=2 AND D2<>35 THEN MAYS=MAYS 

+l:M22=l 

912 IF FD1=3 AND D3<>35 THEM WAYS=WAYS 

+l:W33=l 

914 IF FD1=4 AND D4<>35 THEN WAYS=MAYS 

+l:M44=l 

916 IF WAY5=2 THEN 4600 

918 IF Wl=l THEN RD=1 

928 IF W2=l THEN RD=2 

922 IF M3=l THEN RD=3 

924 IF W4=l THEN RD=4 

925 GOTO 4678 

926 GOTO 1158 
993 GOTO 518 

1668 DATA 178,84,124,178,146,254,46,18 

8 

1816 DATA 126,68,66,223,269,219,66,68 

1628 DATA 178,85,176,85,178,85,178,85 

1830 DATA 68,126,219,255,189,195,126,6 

8 

1835 DATA 6,8,7,253,85,87,8,8 

1837 DATA 28,54,119,65,119,119,119,127 

1638 DATA 24,24,126,126,24,24,24,24 

1839 DATA 31,35,69,249,137,138,148,248 

1648 DATA 13,13,14,13,2,14,4,14,5,15,4 

,15,5,16,8,16,15,15,16,15,13,16,14,16, 

2,18,5,18,7,18,9,18,15,18,17,18 

1841 DATA 1,8,18,8 

1850 DATA 2,19,3,19,7,19,9,19,11,19,13 

,19,5,26,7,28,16,28,18,28,2,21,3,21,5, 

21,7,21,9,21,14,21.2.22,3,22 
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1860 DATA 1,1,1,5,18,1,18,7,3,1,3,4,16 

,6,16,8,18,12,18,16,16,14,16,17,16,28, 

16,22,13,18,13,11,13,17,13,18 

1878 DATA 9,9,3,18,8,13,8,14,3,16,3,17 

,8,8,8,23,8,23,19,23,19,23,19,8,3,1,9, 

1,11,1,16,1,11,2,16,2,11,4,16,4 

1880 DATA 4,6,9,6,3,3,5,3,6,4,7,4,3,5, 

4,5,11,5,12,5,14,6,16,6,11,7,12,7,2,8, 

6,8,8,8,9,8,11,8,14,8,5,9,6,9 

1898 DATA 11,9,13,9,16,9,17,9,1,18,3,1 

8,6,18,7,18,15,18,17,18,6,11,7,11,9,11 

,11,11,2,12,3,12,17,12,18,12,5,13,6,13 

1895 DATA 18,13,16,17,11,13,11,17,-1,8 

,8,8 

1188 DATA 4,2,5,5,13,7,4,9,8,9,12,18,1 

8,11,15,12,3,13,9,13,5,14,13,14,12,15, 

4,16,15,17,6,18,4,21,12,22,15,28 

1118 DATA 2,6,-1,8 

1128 DATA 17,2,15,22,16,22,18,22,9,12, 

17 22 - 19 

1158 IF 1.1=8 THEN COLOR 8:PL0T I9,8:PL 

OT 8,8 

1151 IF LI=-1 THEH COLOR 9:PL0T 19,8:P 
LOT 8,8 

1152 IF LI=~2 THEM COLOR 18:PL0T 19,8: 
PLOT 8,8 

1154 GOTO 4118 

1588 C0UNT=888:F0R ZZ=28 TO 8 STEP -li 

SOUND 8,C0UNT, 18, ZZ: SOUND 1, COUNT+ CZZ* 

993,18,ZZ:C0UNT=C0UNT-18:NEXT ZZ 

1518 SOUND 8,8,8,8:S0UND 1,8, 8, 8 : RETUR 

N 

2800 BAGS=BAG5-1:G0LD=G0LD+INT(RND(8)* 

188) +1 : DBAGS=DBAGS-1 

2885 FOR ZZ=28 TO 8 STEP -1:S0UND 8,28 

,16,ZZ:NEXT ZZ: SOUND 8,8,8,8 

2818 IF DBAGS=-18 OR BAGS=-18 THEN COL 

OR 37:PL0T K,E:COLOR 39:PL0T SC,5C1 

2820 RETURN 

2588 COLOR 38:PL0T X,Y:REM :LI=LI-1:IF 

LI=-3 THEN GOSUB 9158:G0SUB 6888: GOTO 

2570 
2510 LOCATE X,Y,ZZ:IF ZZ=36 THEN COLOR 

32:PL0T K,Y 
2520 LOCATE K+1,Y,ZZ:IF ZZ=36 THEN COL 
OR 32: PLOT X+l Y 

2530 LOCATE X-1,Y,ZZ:IF ZZ=36 THEN COL 
OR 32:PL0T K-1,Y 

2540 LOCATE X,Y-1,ZZ:IF ZZ=36 THEN COL 
OR 32:PL0T X,Y-1 

2558 LOCATE X,Y+1,ZZ:IF ZZ = 36 THEN COL 
OR 32:PL0T X,Y+1 

2555 LI=LI-l:IF LI=~3 THEH GOSUB 9158: 
GOSUB 6888:G0T0 2578 
2568 COLOR 38:PL0T X,Y 
2578 X=18:Y=1:X1=X:YI=Y:MX=17:MY=2:0MX 
=MX:OMY=MY 
2572 D=32 

2575 IF LI=-3 THEH LI=8 : GOTO 395 
2610 FOR FN=0 TO 588: NEXT FN 
2617 DGOLD=GOLD : G0LD=8 : X=18 : Y=l : X1=I8 : 
Yl=l 

2628 MX=RMX:MY=RMY 
2630 D=32 
2700 GOTO 503 
3880 FOR COUNT=0 TO 5 
3010 SETCOLOR 0,8,8 
3815 FOR ZZ=1 TO 58: NEXT ZZ 
3820 SETCOLOR 0,2,8 
3025 FOR ZZ=1 TO 50 : NEXT ZZ 
3830 NEXT COUNT 
3040 SETCOLOR 0,2,8 
3O50 RETURN 

4800 RW=INT(RND(8J#2)+1 
4818 IF RW=1 THEN 1118 
4828 IF Ml=l THEN RD=1 
4838 IF W2=l THEN RD=2 
4846 IF W3=l THEN RD=3 
4858 IF M4=l THEN RD=4 
4868 GOTO 1150 
4870 IF Wll=l THEN RD = I 
4880 IF H22 = l THEH RD=2 
4090 IF W33=l THEN RD=3 
41O0 IF W44 = l THEN RD=4 
4110 IF RD-0 THEN 4388 
4128 IF RD = 1 THEN MX=MX~1 



4138 IF RD=2 THEN MY=MY-1 

4148 IF RD=3 THEN MX=MX+1 

4158 IF RD=4 THEN MY=MY+1 

4155 LOCATE OMX, OMY, ZZ : IF ZZ=36 OR ZZ= 

39 THEN 4162 

4160 COLOR D:PLOT OMX, OMY 

4162 D=32 

4165 LOCATE MX,MY,D:IF D=36 THEN GOSUB 

1588: GOTO 2586 
4178 COLOR l:PLOT MX, MY 
4175 OMX=MX : OMY=MY 

4180 FD=8 : FD1=8 : RD=6 : Dl=8 : D2=8 : D3=8 : D4 
=8:WAYS=8:RD=8 

4198 Ul=8 : W2=8 : U3=8 : H4=8 : Mil =8 : U22=8 : H 
33=8:1444=8 
4200 GOTO 510 
4300 RD=INT(RND(6}*4)+1 
4318 IF RD=1 AND Dl=35 THEN 4388 
4328 IF RD=2 AND D2=35 THEN 4388 
4336 IF RD=3 AND D3=35 THEN 4388 
4346 IF RD=4 AND D4=35 THEN 4388 
4358 GOTO 4120 

5880 GOSUB 3888 :GOSUB 9888: GOSUB 6888: 
TIM=TIM+l:GOTO 395 
6888 COLOR 32 : Cl=8 :C2=8 : IF LI<>-3 THEH 

GOTO 6885 

6881 IF Ll=-3 THEN GOSUB 681 8: POKE 756 
,224:P0SITI0H 8,5:? tt6 ; " EHDIBE ";P 
GOLD 

6882 POSITION 4,18:? t»6;"push trigger" 
:IF LI=-3 THEN TIM=8 

6883 SETCOLOR 1,12,18:IF STRIGC8)=8 TH 
EN 6685 

6684 FOR ZZ=1 TO 56: NEXT ZZ: SETCOLOR 1 

,8,8:F0R ZZ=1 TO 58:NEXT ZZ:G8T0 6883 

6865 RESTORE 1848 :IF LI=-3 THEN PGOLD= 

8 

6087 COLOR 32:G0SUB 6818:P0KE 756, SET: 

RETURN 

6618 FOR Cl=6 TO 23:PL0T 8,C1:DRAHT0 1 

9,C1:HEXT Cl:RETURN 

7860 DATA 8,8,19,8,19,8,19,23,19,23,8, 

23,8,23,8,8,3,3,5,3,5,2,5,2,9,1,11,1,1 

4,3,16,3,14,2,14,2 

7818 DATA 9,4,11,6,9,6.11,4.16.5,14,5, 

14,6,14,6,9,18,11,18,11,18,11,12,11,12 

,9,12,9,12,9,18,3,5,5,5,5,6,5,6 

7828 DATA 3,9,3,16,5,9,5,18,14,9,14,18 

,16,9,16,16,3,i2,3,i3,5,i2,5,i3,i4,i2, 

14,13,16,12,16,13 

7838 DATA 18,15,18,17,9,16,11,16,3.17. 

5,17,14,17,16,17,3,19,5,19,14,19,16,19 

,8,28,9,28 

7646 DATA 11,28,12,28,8,22,9,22,11,22, 

12,22,2,22,2,23,17,22,17,23,12,21,12,2 

1,8,21,8,21,3,19,3,26 

7658 DATA 3,16,3,17,16,16,16,17,16,19, 

16,28,2,18,3,18,6,18,5,18,2,12,3,12,6, 

12,5,12,13,18,14,18 

7868 DATA 16,18,17,18,13,12,14,12,17,1 

2,17,12,-1,-1 

7878 DATA 4,2,15,2,4,6,15,6,18,4,18,6, 

9,5,11,5,4,9,15,9,2,11,4,11,6,11,13,11 

,15,11,17,11,4,13,15,13 

7888 DATA 9,15,11,15,9,17,11,17,4,16,1 

5,16,4,28,15,28,9,21,11,21,4,2,-1 

7898 DATA 18,21,16,13,18,12,18,11,18,2 

2,10,12,-28 

8888 DATA 121,6,96,6,91,6,81,1,8,8,121 

,8,96,8,91,8,81,1 

8618 DATA 0,8,121,8,96,8,91,8,81,2,96, 

2,121,2,96,2,188,1 

8828 DATA 8,8,96,8,96,8,188,8,121,2,12 

1,6,96,2,81,4,81,4,91,2 

883C DATA 8,8,91,8,96,8,91,8,81,2,96,2 

,188,4,188,4,121,1,-1 

9868 RESTORE 8688 

9816 READ PITCH 

9828 IF PITCH=-1 THEN 9138 

9646 READ DURATION :DURATION=INT C58/DUR 

ATI0N3 

9050 SOUND 0, PITCH, 16, 8 

9666 IF PITCH=6 THEN 9880 

9876 SOUND 1 ,PITCH+1 , 10, 8 

9888 FOR ZZ=1 TO DURATION :NEXT ZZ 

9898 SOUND 0,0,8,8 
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9180 SOUND 1,0,0,0 

3110 FOR ZZ=1 TO 5:NEXT ZZ 

9120 GOTO 9O10 

9130 RETURN 

9150 RESTORE 9270 

9168 READ DURATION: IF DURATION=-l THEN 

RETURN 
9170 DURATION=INTCDURATION*10) 
9180 READ PITCH: IF PITCHES THEN 9208 
9190 PITCH=PITCH*3 
9280 SOUND 0, PITCH, 10, 8 
9218 SOUND 1,PITCH+1,10,8 
9220 FOR ZZ=1 TO DURATION : NEKT ZZ 
9230 SOUND 8,8,0,0 
9240 SOUND 1,0,0,0 
9250 FOR ZZ=1 TO 3: NEXT ZZ 
9260 GOTO 9160 

9270 DATA 2,47,2,60,1,81,3,60,2,47,2,6 
0,1,53,3,53,2,47,2,60,1,45,2,45,1,45 
9288 DATA 1,47,1,47,1,53,1,53,3,68,1,0 
,1.5,47, .5,53,1,60,1,53,1,47,1,47,2,47 
,1,53,1,53,2,53 

9290 DATA 1,47, 1, 40, 2,40,1 . 5,47, . 5, 53, 
1,68,1,53,1,47,1,47,2,47,1,53,1,53,1,4 
7,1,53,3,68,1,8,-1 

9300 FOR ZZZ=1 TO 3: FOR ZZ=20 TO 5TE 
P -l:50UND 8,28,10,ZZ:NEXT ZZ:SOUND 0, 
0,0,0:NEXT ZZZ:RETURN 
10000 FOR Z=l TO 3 
18010 A=PEEKt708) 

18820 POKE 708,PEEKC711J :POKE 711, PEEK 
C718):P0KE 710.PEEK (709J :POKE 709,A:NE 
XT ZiFOR B=l TO 18: NEXT B:RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 0,703,82,669,687,337,397,37,199 

,539,211,426,288,786,738,6091 

258 DATA 162,99,383,742,713,712,721,64 

2,282,323,121,875,275,455,697,7122 

438 DATA 704,833,696,201,728,445,337,5 

1,429,826,926,151,238,959,36,7568 

530 DATA 918,74,785,93,91,205,828,681, 

484,731,983,17,973,483,857,8203 

624 DATA 488,689,493,829,812,831,814,1 

82,910,911,917,918,746,924,929,11393 

770 DATA 167,178,113,918,228,224,220,2 

16,977,846,853,860,867,983,660,8382 

902 DATA 660,667,674,27,30,40,58,918,8 

10,807,811,815,974,978,746,8999 

1800 DATA 226,165,214,287,97,68,763,80 

,750,137,418,548,616,647,412,5428 

1895 DATA 418,873,132,916,498,688,859, 

724,251,119,657,327,491,783,339,7979 

2518 DATA 724,239,248,218,201,494,202, 

783,213,871,731,517,774,288,903,7318 

3800 DATA 810,677,667,660,668,195,662, 

788,842,933,0,5,10,15,719,7651 

4878 DATA 706,715,724,726,908,549,557, 

551,559,311,753,284,808,251,772,9094 

4180 DATA 625,95,887,819,607,611,615,6 

19,730,1,991,985,398,561,836,9388 

60O5 DATA 105,951,595,618,605,393,695, 

974 , 457, 283 , 942 , 188 , 257, 974 , 783 , 8828 

8828 DATA 596,86,199,118,118,997,893,4 

00,342,698,223,218,588,743,801,7012 

9150 DATA 226,485,338,695,558,894,342, 

698,223,225,593,761,514,393,665,7618 

9308 DATA 852,389,60,626,1847 



For those interested, here are some of the 
techniques used in this program. First is "redefined 
character sets," which when carefully laid out can 
simulate a high resolution graphics screen, but re- 



quiring much less memory. They are fairly easy to 
design. Each character can be one of four different 
colors. Step one is to design some characters. Here's 
Smiley as an example: 
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Make an 8 by 8 grid, mark the blocks to be filled 
in, then add up the corresponding numbers to de- 
termine its POKE value. 

Following is a program which defines a space and 
a Smiley character, and then prints out a picture of 
Smiley on the screen. 



18 GRAPHICS 2+16:REM START OUT WITH A 

GRAPHICS STATEMENT 

20 POKE 106,PEEKC186)-2:REM SET ASIDE 

2 PAGES OF MEMORY FOR THE CHARACTER SE 

T 

30 CHBASE=PEEKC106)*256:REM THIS 15 WH 

ERE THE CHARACTER SET MILL BE POKED IN 

TO MEMORY 

40 SET=PEEKC106J : REM THIS IS WHERE THE 

CHARACTERS MILL GO IN TERMS OF PAGES 
OF MEMORY 

50 READ VALUE: IF VALUE=-1 THEN 95:REM 
READ IN PART OF A CHARACTER 
60 POKE CHBA5E+CVALUESREM PUT THE HUM 
BER IN MEMORY 
70 C=C+l:G0T0 50 
75 REM DATA FOR SPACE 
80 DATA 0,0,0,0,8,0,8,0 
85 REM DATA FOR SMILEY 
90 DATA 60,126,219,255,189,195,126,60, 

95 POKE 756,SET:REM TELL THE COMPUTER 
WHERE THE NEW CHARACTER SET IS LOCATED 
100 COLOR UPLOT 5,5:REM PUTS SMILEY 
N SCREEN AT 5,5 

110 GOTO 110:REM ENDLESS LOOP FOR DISP 
LAY PURPOSES 



To determine the number for the COLOR state- 
ment in line 100: first, Smiley is to be green. Color 
register number 1 normally contains green, so it is 
used. Smiley has been defined in the program above 
as the second character in the redefined set. (The 
space was the first.) 

With these pieces of information I looked up the 
number in a chart, like the following one: 
COLOR REGISTER = 32, 33 through 95 
COLOR REGISTER 1 = 0, 1 through 124, 

(125*), 126, 127 
COLOR REGISTER 2= 160, 161 through 223 
COLOR REGISTER 3 =128, 129 through 

154, (155*), 156 
through 255 

• * 155 selects the same thing as 32. 125 has no 

effect. 

Smiley's color is set by color register 1, so look in 
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the second row. Since he is the second character, use 
the 2nd number in the 2nd row, which is 1. As an- 
other example, if Smiley were to be controlled by 
color register 2, the correct number would be 161. 
Try 161 in the example program above and see what 
happens. 

Before you get too carried away, remember that 
the example program will not allow text to be dis- 
played on the screen. To switch back to text only, 
type POKE 756, 224. 

Another section of the Halls of the Leprechaun 
King which is interesting is its color rotation sub- 
routine ( 10000-10020). Adding this to a program's 
title makes it very colorful. Here is how it works. 
Memory locations 708-711 contain the numbers 
which determine the colors which will be displayed 
from each color register. The subroutine rotates the 
colors from one register to another so that every- 
thing on the screen flashes through each color. Try it 
in one of your programs. □ 



Circle Radius Demo 



19 XCENTER=310/2:YCENTER::192/2 

100 GRAPHICS 8 

110 COLOR 1 

120 ? "ENTER RADIUS:"; :IHPUT RADIUS 

130 LET RADIUS=RADIUS+3-l 

140 LET X=0 

158 LET Y=RADIU5 

160 LET DIAMETER=3-2*RADIUS 

170 IF X< = Y THEN GOSUB 10O0:IF DIAMETE 

R<0 THEN DIANETER=DIANETER+4*X+6:X=X+1 

.'GOTO 170 

180 IF X>Y THEN END 

190 DIAMETER=DIAMETER+4*tX-Y]+18 

288 V=V-1 

218 X-X+l:G8T0 170 

1888 REM 

1818 PLOT XCENTER+X,YCENTER+Y 

1828 PLOT XCENTER+Y,YCENTER+X 

1830 PLBT XCENTER+Y,YCENTER-X 

1848 PLOT XCENTER+X,YCENTER-Y 

1050 PLOT XCENTER-X,YCENTER-Y 

1060 PLOT XCENTER-Y,YCENTER-X 

1O70 PLOT XCENTER-Y,YCENTER+X 

1088 PLOT XCENTER-X,YCENTER+Y 

1090 RETURN 



CHECKSUM DATA 

(See pgs. 7-10) 

10 DATA 50,908,474,753,651,436,523,779 
, 371 , 588,245,356 , 584 , 275, 95, 7880 
1820 DATA 95,188,182,185,185,182,184,7 
88,1501 
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STUNTMAN 



16K Cassette 24K Disk 



by Steven Pogatch 



Your stunt man has been hired to climb to the top 
of every building he can find. This is not as easy as it 
may seem, though, because the tenants of the build- 
ings will do anything to get you off the building. 
There are six (6) levels to each building, each pro- 
gressing in difficulty. 

In the first section, windows constantly close to 
keep you from getting past them. Next, men stick 
their heads out of the windows, trying to get in your 
way. After that, flower pots fall from the window 
ledges, closing all windows in their way. After pass- 
ing this section, a crazy bird drops girders on you. Be 
careful here — they can be deadly if they hit you on 
the head. Once you get past the bird, you have to 
avoid King Kong, waiting for you on his part of the 
building. He is very angry and is throwing down any- 
thing he can find on top of you. Last (but not easiest), 
girders (3 lanes wide) come crashing down from the 
building. Look out! 

If you are lucky enough to get through all of this, 
there will be a brief intermission telling you to go on 
to the next building. 

On the top left corner of the screen are three 
numbers. The first one represents the section, the 
second represents the building number, and the third 
represents the number of men you have left. If you 
manage to score 10,000, 30,000 or 50,000 points, 
you will be awarded a free stunt man. The score is 
displayed in the lower left hand corner. You can 
move left, right and up with the joystick. For every 
movement you make, you are rewarded 50 points. 
You start out with 6 stunt men. Good luck climbing 
— you'll need it. □ 



The program. 

Lines 1-30 — Initialization 

Lines 40-1000 — Movement of a player, 
activate obstacle(s) 

Lines 1000-2000 — Death (fall) of stunt 
man 

Lines 2000-3000 — Section 1 (windows & 
men) 



Lines 3000-4000 — Section 2 (flower 
pots) 

Lines 4000-5000 — Section 3 (bird) 
Lines 5000-6000 — Section 4 (King Kong) 
Lines 6000-10000 — Section 5 (girders) 
Lines 10000-11000 — Bonus stunt man 
Lines 1 1000-32000 — Go on to next build- 
ing (intermission) 

Lines 32000-325000 — Redefines charac- 
ter set 

Lines 32500-32700 — Title 

Lines 32700-32750 — End of game 



1 G05UB 32886:CLR 

2 G05UB 32588:SH=6:B=1 

5 GRAPHICS 1:P0KE 756, PEEK (106) +1 

18 5ETC0L0R 2,8,8:P0KE 718,94:P0KE 711 

,45:F0R A=8 TO IMPOSITION 5, ft:? tt6;"e 

eeeeeeeeeee":NEXT a 

28 FOR A=5 TO 16 : F=RND <8J*19 : IF F>1 TH 

EM POSITION A,F:? tt6;"f":NEXT ft 

38 X=18:Y=I8:0X=X:0Y=Y 

48 POSITION 0X,0Y:? tt6; "e" : POSITION OX 

,0Y+i:? m;"e" 

41 LOCATE X,Y,Z:IF Z=182 OR Z=225 OR Z 
=66 THEN G0SUB 1888 

42 POSITION X,Y:? tt6; "a" : POSITION X,Y+ 
1:? It6;"12" 

43 IF SC=18888 OR SC=58888 OR SC=18888 
8 THEN SH=SH+1:G05UB 18888 

44 IF Y=8 THEN L=L+1:G0T0 5 

45 0X=X:0Y=Y 

46 SOUND 8,Y+28,3,15:F0R 0=1 TO 15:NEX 
T OiSOUND 8,8,8,8 

47 G=RND(8)*4:IF G>3.7 THEN FOR ft=5 TO 
16:P05ITI0N ft, RND (81*18 :? lt6;"f":HEXT 
ft 

48 ON L GOSUB 2888,3888,4088,5888,6888 
:IF L = 6 THEN L = 8 : B = B + 1 : GOSUB 11080 

49 POSITION 8,15:? 86; SC : POSITION 1,1: 
? t»6;L: POSITION 1,2:? tt6;B:P05ITI0N 1, 
3:? »6;SH 

58 IF 5TICK(8J=14 AND Y>8 THEN Y=Y-1:5 

C=5C+58:G0T0 48 

68 IF STICK(8J=11 AND X>5 THEN X=X~1 : S 

C=5C+5B:G0T0 48 

78 IF 5TICK(8J=7 AND X<16 THEN X=X+1:S 

C=SC+5B:G8T0 48 

188 GOTO 42 

1880 SOUND 0,48,6,10:F0R A=l TO 25 : HEX 

T A:S0UND 8, 0,8, : SOUND 1,8,8,8 

1810 FOR A=Y TO 18:P0SITI0N X.A:? B6:" 

B": POSITION X,A+1:? 1*6 ; ,, ffl": POSITION X, 

A-l:? tt6;"e": POSITION X,A:? U6; M e" 

1828 SOUND 8,A+28,18,1B:NEXT A.'SOUND 8 

,8,8,8:SH=SH-1 

1838 IF SH<8 OR SH=8 THEN GOTO 32788 
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1040 GOTO 10 

2000 REM DOCTORS 

2010 C=C+l:IF C=ll THEN C=l :DC=RND CO)* 

10 

2020 IF DC>6 THEN POSITION C+5,RNDC0)* 

18:? 86 J 1 ^" 

2040 RETURN 

3000 REM POTS 

3010 D=D+1:IF D=li THEN D=I :DC=RND CO)* 

10 

3020 IF DC>7 THEN FOR 0=2 TO Y:POSITIO 
N D+5,A:? tt6;"B": POSITION D+5,A-i:? tt6 
;"f':NEXT A:POSITION D+5,Y:? ttOj-'e" 
3030 RETURN 
4000 REM BIRD 

4010 BD=BD+1:IF BD=11 THEN BD=1 
4020 POSITION BD+5,2:? t»6; "C" : POSITION 
BD+6,2:? ttSj-D": POSITION BD+4,2:? tt6j 
■'e":BDD=RNDC0)*10 

4022 IF BD=1 THEN POSITION 15,2:? U6;" 
ee" 

4025 IF BDD>3 THEN 4030 
4027 RETURN 

4030 FOR BDDA=4 TO IMPOSITION BD+5,BD 
DA:? ttej-eM": POSITION BD+5, BDDA-1 :? tt6 
;"ee" 

4040 LOCATE X,Y,Z:IF Z = 109 THEN GOSUB 

1008 

4050 SOUND 8,BDDA+188,18,8:NEXT BDDA : S 

OUND 0,0,0,0 

4060 RETURN 

5000 REM KONG 

5810 KN=KN+1:IF KN=12 THEN KL=KL+1:KN= 

1 

5015 IF KN=1 THEN KN=KN+1 : IF KL=12 THE 

N KL=1 

5020 POSITION KN+5,KL+1:? t»6; "R" : POSIT 

ION KH+5,KL+2:? tt6 ; ••&' '• POSITION KN-1+5 

Ki n ii -m-c iiiAUinncTTTnti i/y_ixc t/i J--T > -t 
LTii: «*u , c .rujinon rvn x < ii; rl < a • : 

86;"e" 

5825 POSITION 16,KL+1:? tt6; "e" : POSITIO 

N 16.KL+2:? tt6;"e" 

5026 REM FOR A=I TO 12P0SITI0N 15, A? tt 

6;"e"NEXT A 

5827 LOCATE X,Y,Z:IF Z = 235 THEN GOTO 1 

OOO 

5030 QGQ=RNDC8)*10+1 

5840 IF Q00<6 THEN RETURN 

5045 IF Q0Q>6 AND 0QQ<7 THEN 5050 

5046 IF QQQ>7 AND QQQ<8 THEN 5288 

5047 IF Q0Q>8 AND 0GG<5 THEN 5388 
5848 IF 0GG>9 AND QQQ<18 THEN 5480 
5058 FOR A=KL+4 TO 17 

5060 POSITION KN+5,A:? »6; "B" : POSITION 

KN+5,A-1:? ttej-e'MLOCATE X,Y,ZZ:IF ZZ 
=66 THEN 1000 

5078 SOUND 0,A+288,18,8:NEXT A:SOUND O 
,0,0,O:PO5ITION KN+5,17:? U&;"e" 
5080 RETURN 
5288 FOR A=KL+4 T8 17 
5210 POSITION KH+5,A:? 86; "I" : POSITION 

KH+5,A-1:? tte^'e-iLBCATE X,Y,ZZ:IF ZZ 
=73 THEN lOOO 

5220 SOUND O, A+208, 10, 8 : NEXT A:SOUND 8 
,O,0,O:POSITION KN+5,17:? tt6;"e" 
5230 RETURN 
5300 FOR A=KL+4 TO 17 
5310 POSITION KN+5,A:? tt6; "M" : P05ITI0N 

KN+5,A-l:? Jt6;"e"; LOCATE X,Y,ZZ:IF ZZ 
=77 THEN 1000 

5320 SOUND O, A+200,18, 8 : NEXT ft : SOUND O 
,O,0,0:POSITION KN+5,17:? m;"e" 
5330 RETURN 
5400 FOR A=KL+4 TO 17 
5410 POSITION KH+5,A:? 1*6 ;"A" : POSITION 

KN+5,A-1:? ttej'-e" .-LOCATE X,Y,ZZ:IF ZZ 
=65 THEN 10OO 

5420 SOUND 8, A+288, 18, 8 : NEXT : SOUND 
,O,0,8:P8SITION KN+5,17:? »6; M e M 
5430 RETURN 
5588 RETURN 

6888 REM GIRDERS ARE MEAN 
6885 GG=RNDC8)*18+l:IF PL=1 THEN PL = 19 
6818 IF GG<4 THEN RETURN 
6828 TTT=RNDC8)*12+1 
6830 IF TTT<5 THEN RETURN 



6040 FOR A=2 TO IMPOSITION TTT,A:? 86 
: "MNH" : POSITION TTT,A-l:? «6;"eee":S0U 
ND 8,A,TTT, 12 : SOUND 1,TTT,A,12 
6045 LOCATE X,Y,ZZ:IF ZZ=77 THEN GOTO 

1000 

6047 NEXT A 

6O50 SOUND 8,O,0,O:SOUND 1,8,0,0 

6O60 POSITION TTT,19:? U6;"eee" 

6070 RETURN 

18000 RESTORE 10580 

1OO10 READ 50:IF S0=-1 THEN SOUND 0,8, 

8 " RETURN 

18020 SOUND O,SO,10,14:FOR A=l TO 2:NE 

XT A: GOTO 10010 

1O5O0 DATA 243,4,162,4,121,6,96,2,102, 

4,243,4,162,4,121,6,81,2,68,8,-1 

11O00 GRAPHICS 8:P0KE 752,1 :POSITION 1 

,1:? " GO ON TO BUILDING ";B:FOR 

A=l TO 3:F0R Q=l TO 50:S0UND 0,0,10,8 

110O5 NEXT Q:NEXT A:SOUND 0,0,0,0 

11010 FOR A=0 TO SC STEP 150:S0UND 0,1 

9,92,8:F0R Q=l TO 20:NEXT 0:S0UND 8,8, 

0,0:POSITION 10,5:? "SCORE^'jAsHEXT A: 

GOTO 5 

31999 END 

32000 POKE 186, PEEK C186) -5: GRAPHICS O: 
5TART=CPEEKC106)+1)*256:P0KE 756, START 
/256:P0KE 752.1 

32018 DIM XFRSC38) : RESTORE 32815:F0R X 
=1 TO 38:READ N : XFRS CX) =CHRS CN) : NEXT X 

32815 DATA 104,169,0,133,203,133,285,1 
69,224,133,206,165,106,24,105,1,133,20 
4,160,0,177,205,145,203,280 

32816 DATA 288,249,238,284,238,286,165 
,286,281,228,208,237,96 

3202O Z=USRCADRCXFRS)J :RESTORE 32100 

32030 READ X : IF X=-l THEN RESTORE :RET 

URN 

32040 FOR Y=0 TO 7:READ Z:POKE X+Y+STA 

RT,Z:NEXT Y:GOTO 32O30 

32100 DATA 264,60,126,219,255,231,189, 

195,126 

32181 DATA 272,186,58,36,255,126,126,1 

26,126 

32102 DATA 288,30,287,255,255,127,15,3 
8,68 

32103 DATA 288,36,26,255,254,224,0,8,8 

32184 DATA 296,255,129,129,129,129,129 
129 255 

32185 DATA 384,0,126,126,126,126,126,1 
26,0 

32106 DATA 312,195,153,153,231,69,68,6 
0,0 

32107 DATA 320,60,60,36,36,36,231,231, 


32108 DATA 328,60,36,60,8,24,16,24,8 

32109 DATA 336,60,90,126,129,165,129,1 
26,60 

32110 DATA 344,60,102,165,165,165,219, 
68,231 

32111 DATA 352,126,182,182,126,8,8,48, 
56 

32112 DATA 368,8,8,255,182,255,8,8,8 

32113 DATA -1 
32508 GRAPHICS 17 

3 2518 FOR A=l TO 22:P 0SITI0H 8, A:? t*6; 

" [lUdmiummimmuiL; " : sound o,A+25,ie 

,12:NEXT A:P65ITI0H 4,18 

32511 SOUND 8,8,8,8 

32512 ? 86 j". .stunt. nan. .*■ 

32528 POSITION 2,13:? 86;"SPI STEUEN PO 
GATCH": POSITION 5,14:? 86;"PRES5 START 

II 

32525 POSITION 7,18:? 86; " Cc) 1982" 

32538 IF PEEKC53279)=6 THEN RETURN 

32540 GOTO 32530 

32700 GRA PHICS 18:POSITI0N 1,2:? tt6;"'B 

I I I — I'l I I l ll III nil 1,5:? »6;"SC0RE="; 

SC 

32718 POSITION 1,6:? 86;"PRE5S START " 

32715 IF PEEKC53279)<>6 THEN 32715 

32755 CLR :GOTO 2 
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CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 495,17,266,468,487,384,263,358, 

118,164,663,967,893,549,523,6451 

49 DATA 998,821,816,783,492,194,518,48 

5,459,615,525,997,243,785,81,8804 

3010 DATA 6,681,786,5,59,187,45,657,80 

1,289,454,979,791,45,102,5887 

5015 DATA 475,635,855,276,239,438,357, 

196,192,201,498,693,954,593,795,7397 

5200 DATA 694,964,594,796,697,983,597, 

799,708,957,600,802,802,620,636,11241 

6O10 DATA 517,459,374,919,585,488,737, 

366,796,650,292,498,329,393,275,7678 

11010 DATA 684,592,284,910,654,591,768 

,663,960,879,634,535,45,170,526,8895 

32186 DATA 354,269,972,836,628,478,887 

,833,312,711,575,597,283,329,343,8327 

32540 DATA 224,776,906,306,215,2427 
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DUNGEONS & DRAGONS 
CHARACTER GENERATOR 



24K Cassette 32K Disk 



by Bob Curtin 



When I first bought my ATARI, one of the things I 
put high on my list of priorities was to try one of the 
computer adventure games on the market. I wasn't 
impressed with the game, but I was impressed with 
the ease of play. Pressing a few buttons took care of 
movement, combat, encumbrance, game time and all 
the rest, and it dawned on me that my computer 
could be a big help to me in my ongoing DUN- 
GEONS & DRAGONS campaign. I set to work 
writing a series of utility programs for it. This, the 
first, generates both player and non-player charac- 
ters in an average of about four minutes. Normally, it 
takes anywhere from twenty to forty minutes to 
generate a character "by hand," and then there's a 
strong possibility of missing a few modifiers along 
the way. The computer always remembers. 

Though the program was written to take the work 
out of generating characters, the Dungeon Master 
and players are still left with choices to make. As in 
D&D, the player still has choice of name, gender, 
race, class, and character level. Those categories 
greatly affect the final character statistics, and it 
would be an injustice to randomly choose them for 
the player. By the same token, there are certain mini- 
mum ability scores, or racial requirements, which 
must be met to assume the role of a particular race or 
class. The user doesn't have to know or worry about 
it; the computer will figure it all out and tell the 
player if he or she doesn't measure up. The player 
may continue to choose alternatives until one of his 
choices meets all requirements. The program will 
then continue on. 

The system used is based on the standard AD- 
VANCED DUNGEONS & DRAGONS game. 
There is an omission, however — by choice, not 
error. I didn't incorporate the maximum level re- 
strictions imposed on certain races, such as an Elf 
being able to rise no higher than 7th level as a fighter. 
If a Dungeon Master wants to adhere to those limits, 



it's a simple matter to just look it up; while it's not so 
simple to get the computer to do what it's told not to. 
For those of you who want to ignore the limits, the 
computer doesn't know any better. Indulge. 

I fudged a couple of other values, too. For in- 
stance, line 195 contains the random number gen- 
erator for the characters' basic abilities. Notice that 
variables A and C have a +2 for the add-on number. 
I did this to give the players a break. All you hard- 
line Dungeon Masters out there gnashing your teeth 
can switch back to +1 if you want. (Essentially, 
they're now rolling 3D6+2.) 

The program. 

As I said, there are five inputs. They are, in order: 
name, gender, race, class and character level. Here is 
an example of each. 

Name — after the title, the computer will ask for a 
character name. This is the only "open" input, and 
— although you have to work at it — it can be 
screwed up. For example, entering a couple of 
control characters through the escape key will cause 
some grief later on down the line. Other than that, 
anything but an input of YES, NO, Y or N will be 
taken as the character name. If you don't want a 
name, just hit the return key. Entering NO or N will 
fetch a list of names from memory as suggestions to 
the player. 

GENDER — The computer will only accept M or 
F. Lower case letters will not work. 

RACE and CLASS — Only the exact initials 
listed in parentheses on the respective menus will be 
accepted. 

CHARACTER LEVEL — Any level between 1 
and 18 (inclusive) will be accepted. If a value below 1 
is entered, the value will be upped to 1. If a value over 
18 is entered, a short message will be displayed and 
the program will loop back for another input. Any 
illegal entry, such as a letter instead of a number, will 
also cause the loop back for re-entry. 
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As the character builds, the computer does the 
appropriate calculations, comparisons and modifi- 
cations between inputs, and then displays the results. 
After the information has been copied from the 
screen, the player may continue the program by 
pressing any key. 

Program outline. 
Lines 5-26 — Initialization 
Lines 50-75 — Character Race Modifier 
Routine 

Lines 80-82 — Custom Display List 
Lines 86-88 — Title (so, my vanity's show- 
ing). This can be deleted by eliminating lines 80 
through 96 and changing the last statement in 
line 20 to GOTO 100. 

Lines 100-111 — Thief, Magic-user, and 
Monk Data 

Lines 159-179 — Name Input 
Lines 180-187 — Gender Input 
Lines 190-192 — Race Menu 
Line 195 — ■ Basic Ability Scores 
Lines 200-225 — Race Input 
Lines 226-229 — Ability Score Display 
Lines 235-243 — Class Menu and Class 
Input 

Lines 245-254 — Class Trigger and Gold 
Piece Generator 

Lines 263-269 — Exceptional Strength 
Routine 

Lines 276-332 — Hit, Damage, Armor 
Class, and Dexterity Modifiers 

Lines 335-341 — Modifier Display 
Lines 345-374 — Height and Weight Rou- 
tine (modified by race and gender) 

Lines 375-438 — Hit Point Generation 
Routine (modified by race and ability) 
Lines 460-475 — Thieves Ability 
Lines 500-530 — Magic-user Abilities 
Lines 550-599 — Monk Abilities 
Lines 2000-2020 — Name List 
Lines 2550-2730 — Race Limitations 
Lines 5000-5975 — Class Limitations 
Lines 6132-6200 — Thief Abilities Modi- 
fiers (by race and ability scores) 

Lines 7000-7055 — Psionics Routine 
Lines 8000-8020 — Input Error Routine 

A few suggestions for the DM. 

Never lose sight of the fact that the only reason a 
player will participate in one of your D&D sessions 
is to have FUN! Nothing will dampen the enthu- 
siasm of a new player faster than being forced to 
assume the role of a character too weak to take any 
kind of initiative, do any exploring, or even stand 
fast with the rest of the party. Force your players into 
a position of constant impotence and you'll soon 
find your dungeon devoid of adventurers. 

Although I'm certainly not in favor of the give- 



away dungeon, killer dungeons are, if not worse, at 
least as bad. Surviving and advancing up the ladder 
of experience — developing a character is what D&D 
is all about. To have a developed character snuffed 
out by the undetectable, unseeable or unknowable is 
bound to cause you to gain a reputation as a "cheap 
shot" dungeon master. Having a character killed 
because of one's own recklessness or bad luck or a 
bad choice between alternatives can be lived with. But 
the skewering of some hapless player for no rhyme 
or reason is unforgivable. 

Give your players a break. Pick a number — I use 
five — and let each player run off that many char- 
acters. The player can then choose one of them to 
start the game with, and should that character come 
to an untimely end, there are four more from which 
to choose. That way, no more valuable playing time 
is taken up generating characters. 

Normally, novice players start at level one. How- 
ever, after a player has campaigned for some time, it's 
usually the practice to let him or her start higher than 
that. If they have a character killed off, you could, for 
instance, have them start a couple of levels lower 
than the character who was killed. Another way is to 
roll a six or eight-sided die. 

Above all, be fair. Remember that you, and con- 
sequently all of the creatures you control, have per- 
fect intelligence. Your players do not; they only 
know what you tell them. It behooves you to give 
that little extra. If a player can't see something, don't 
wait for him to ask; tell him. 

Good luck. Good dungeoning. □ 



5 TRAP 8086 

18 DIN N$ (46) , ZS (38) , R$ (18) , PS (18) , E$ ( 
28) , DWS (28) , GHS (28) „ HE$ (22) , 5T$ (9) , WIS 
(7) , INS (28) , DXS (18) , CHS (26) , CHS (18) 
12 DIN HAS(22),H0S(22),BS(18),Y$(19),T 
(13 , 8) , MU (26 , 9) , F (6) , J (15) , G$ (18) , X (18 
) ,N(33) ,NK(17,4),H$(34) ,D$(18> 
15 ZS=" DOES MOT HAVE ENOUGH" : 5TS="5TR 
EHGTH" : INS= ,, INTELLIGENCE" : WlSr-'WISDON" 
:DXS="DEXTERITY" : CN$="C0NSTITUTI0H" 
18 CHS^-CHARISHA-jBS^" TO BE ft":ES=*«EL 
UE5 CANNOT BE " : DW$="D WARVES CANNOT BE 

":GNS="GN0NES CANNOT BE " 
28 HE$="HALF-ELUE5 CANNOT BE ":HAS="HA 
LFLIHGS CANNOT BE " : HOS="HALF-0RCS CAN 
NOT BE ":YS=" HO. ATTACKS" 

25 Kl=l : K2=K1+K1 : K3=K1+K2 : K4=Ki+K3 : K5= 
K1+K4 : K6=K3+K3 : K?=K4+K3 : K8=K2+K6 : KS=K1 
+ K8 ; K16=K9+K1 : Kll=25 : K12=58 : K13=188 

26 KI4=75 : K15=125 J K16=158 : K17=288 : K241 
=24i:K6=Kl-Kl:G0T0 88 

58 FOR E=K1 TO K6 : J (E) =F (E) :HEXT E:0=8 

:IF R$="H" THEN Y=Ki:0=K5 : RETURN 

54 IF RS="E" THEN Y=K2:0=K5:J(K4)=J(K4 

) +K1 : J (K5) = J (K5) -Kl : RETURN 

56 IF RS="D" THEN Y=K3:0=K5:J(K5)=J(K5 

) +K1 : J (K6) = J (K6) -Kl : RETURN 

58 IF RS^'-G" THEN Y=K4 : 0=K5 :RETURN 

66 IF RS="HE" THEH Y=K5 : 0=K5 : GOTO 75 

62 IF RS="HA" THEN Y=K6 :0=K5 : J (Ki)=J(K 

1) -Kl : J (K4) = J (K4) +K1 : RETURN 

64 IF RSr"H0" THEN Y=K7 : 0=K5 : J(K1)=J (K 

1) +K1 : J (K5) - J (K5) +K1 : J (K6) - J (K6) -K2 : RE 

TURN 
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75 RETURN 

89 POKE 712,128:? "U" :DL=PE£K C560) +256 

*PEEK(561) :POKE 752,K1:P0KE 559, K8 

81 Z1=PEEKCDL+K4J :Z2=PEEK CDL+K5J : POKE 
DL+K3,71:P0KE DL+K4, Zl : POKE DL+K5,Z2:P 
OKE DL+K6,K7:P0KE DL+K7,K6 

82 POKE DL+K8,K6:P0KE DL+K9, K6 :POKE DL 
+K10,K6:P0KE DL+K11+K2,65:P0KE DL+K11+ 
K3,PEEKC568J :POKE DL+29, PEEK C561) 

88 POKE 82,8:P0KE 559,34:P0KE 710,128: 
? "'« DUNGEONS * DRAGONS" : ? " RANDOM C 
HARACTER":? " GENERATION PROGRAM" 

92 ? " BY BOB CURTIN" 

93 ? :? :? M THIS PROGRAM MAS MRITTE 
N TO TAKE":? " SOME OF THE BURDEN 
OFF OF THE" 

94 ? " USUALLY HARRIED DUNGEON MAST 
ER . " 

95? :? " PLEASE BE SURE TO PRESS S 
HIH;i;i ":? " AFTER EACH INPU 

T . " : * 

96 ? :? :? " GOOD LUCK! GOOD DUNG 
EONING>":FOR E-Kl TO K10 A 3*5:NEXT E 

100 FOR I=K1 TO K8:F0R X=K1 TO K19+K8: 
READ N:T(X,IJ=N:NEXT X:NEKT I 

101 FOR I=K1 TO K3.F0R X=K9 TO K10+K9: 
READ N:MUtX,I)=N:NEKT K:NEKT I 

102 FOR I=K1 TO K4:F0R X=K1 TO K19+K7: 
READ N:MKCX,I)=N:NEXT X:NEXT I 

i03 DATA 30,35,40,45,58,55,60,65,70,80 

,90,100,105,110,115,125,125,125,25,29, 

33,37,42,47,52,57,62,67,72,77,82,87 

184 DATA 92,97,99,99,20,25,30,35,40,45 

,50,55,60,65,70,75,80,85,90,95,99,99,1 

5,21,27,33,40,47,55,62,70,78,86,94,99 

105 DATA 99,99,99,99,99,10,15,28,25,31 
,37,43,49,56,63,78,77,85,93,99,99,99,9 
9,10,18,15,15,20,20,25,25,30,38,35,35 

106 DATA 40,40,50,50,55,55,85,86,87,88 
,90,92,94,96,98,99,99.1,99.2,99.3,99.4 
,99.5,99.6,99.7,99.8,0,0,0,20,25,30 

107 DATA 35,40,45,50,55,60,65,70,75,80 
,80,80,35,45,45,45,55,55,65,65,75,85,9 
5,4,5,5,5,6,6,7,7,8,9,18,6,7,7,7,9,9 

108 DATA 11,11,14,18,99 

189 DATA 10,9,8,7,7,6,5,4,3,3,2,1,0,-1 
,-1,-2,-3,150,160,170,180,190,208,218, 
220,230,240,250,260,270,280,299,300 

110 DATA 320,1,1,1,54,54,32,32,32,2,2, 
52,52,52,3,3,4,4,13,14,16,16,27,28,39, 
212,312,313,413,416,517,520,624 

111 DATA 530,832 

159 POKE 82,2:GRAPHICS 1:P0KE 752,1:P0 
KE 712,128:P0KE 710,128 

168 RESTORE :? 86:? 86:? 86;" DUNGEONS 
& DRAGONS":? 86; "CHARACTER GENERATION 

It 

176 ? "HAVE YOU THOUGHT OF A NAME":? " 
FOR YOUR CHARACTER"; :INPUT H$ 
175 IF N$="YE5" OR N$="Y" THEN ? "ISWEL 
L, WHAT IS IT";:INPUT NS 

179 IF NS="NO" OR N$="N" THEN GRAPHICS 
0:POKE 710,6:POKE 709,©:POKE 752,1:G0 

SUB 200O 

180 ? "KHHAT GENDER IS ";N$:" (M/F)";: 
INPUT G$:O=0:IF GS="M" OR G$="F" THEN 
0=K5 

187 IF 0<>K5 THEN ? "HM/F ONLY, PLEASE 
!":FOR E=K1 TO 1580: NEXT E:GOTO 180 

190 ? 86:? 86:? 86;" HUMAN CHJ" 
:? 86;" ELF CEJ":? 86;" DMA 
RF CD)" 

192 ? 86;" GNOME <G)":? 86;" 

HALFLING CHA)":? 86;" HALF-ELF CHE 

)":? 86;" HALF-ORC (HO)" 

195 FOR E=K1 TO K6 : A=INT CK6*RND (K13 +K2 

> : B=INT CK6«RND CKi) +13 : C=INT CK6*RND CK13 

+K2) :D=A+B+C:FCE)=D:NEXT E:GOTO 205 

200 POP :? 

205 ? "WHAT RACE"; : INPUT R$:GOSUB K12 

210 IF 0<>K5 THEN ? "^INITIALS ONLY, P 

LEA5E!":G0T0 205 

215 GOSUB 2558 

228 FOR E=K1 TO K6 : IF JCE)>K9+K9 THEN 

JCEJ-K9+K9 

224 IF JCEXK3 THEN JCE)=K3 



225 FCE)=JCE) :NEXT E 

226 GRAPHICS K1:P0KE 712,50:POKE 718,5 
8:? 86:? «6:? «6 

227 ? 86:? 86:? 86:? 86;" STRENGTH 
";F(K1J:? 86;" INTELLIGENCE ";FCK 

2):? 86;" WISDOM ";FCK33 

228 ? 86;" DEXTERITY ";FCK4):? 86 
;" CONSTITUTION ";F CK5) :? 86; " CHAR 
ISMA ";FCK6):? 86:? 86 

229 ? 86;" BASIC ABILITIES" : POKE 752, 
l:? " PRESS ANY KEY TO CONTINUE" 

230 OPEN »1,4,0,"K:":GET 81,E:CLQSE ttl 
:IF E>0 THEN 235 

235 GRAPHICS 1:P0KE 709,96:POKE 710,16 
8:P0KE 712,98:P0KE 752,1 

236 ? 86:? 86 : ? 86 

237 ? 86," QiMaisl^ H31":? 86;" 
0033333 E Eflrl? m- r " 

TEEF:? 86;" 

238 ? 86;" 

HE" 



ASSASSIN 
MAGIC -USER 




? «6;' 



THEN 0=K5:Z=K2:GP=INTCK1 
THEN 0=K5:Z=K3:GP=INTCK1 
THEN 0=K5:Z=K4:GP=INTCK1 
THEN 0=K5:Z=K5:GP=INTCK1 
THEN 0=K5:Z=K6:GP=INTCK1 



? 86;" 

239 ? t t 6;" (IfjTj H»gtM4:) DGJIH" : ° 86;" 
ailQB0Haj@D mir~'> m:* m:-> 86;" ch 

OOSE FROM":? 86;" THE ABOUE LIST" 

240 GOTO 243 

241 POP :? 

243 Z=K0:O=K6:E5=K8:? "WHAT CLASS"; :IN 
PUT PS 

245 IF P$="F" THEN 0=X5 : Z=K1 : GP=INT CIS 
0XRND CI) +501 

246 IF PS= ,, R ,, 
6*RNDCKl)+50) 

247 IF P5="P" 
6*RND (D+50) 

248 IF PS="C" 
6*RNDCl)+38) 

249 IF P$="D" 
6*RNDCl)+38) 

250 IF PS="T" 
3*RNDCl)+20} 

251 IF PS="A" THEN 0=K5 : Z=K7 : GP=INT CK1 
3*RNDCl)+28) 

252 IF P$="MU" THEN 0=K5 : Z=K8 : GP=IHT C6 
O*RND(l)+20) 

253 IF P$="I" THEN 0=K5 : Z=K9 : GP=INT C68 
KRNDC1J+20) 

254 IF PS="M" THEN 0=K5 : Z=K18 : GP=INT CI 
5*RNDCl)+5) 

255 IF 0<>K5 THEN ? "CORRECT INITIALS 
ONLY, PLEASE!":? IGOTO 243 

262 GOSUB 5000 

263 IF P$="F" OR P$="R" OR P$="P" THEN 
IF FCK1)=K10+K8 THEN 265 

264 GOTO 276 

265 GRAPHICS 2+16:P0KE 711,4:? 8K6 : ? 8 
K6:? 8K6:? 8K6;" ";N$;" HAS ":? «K6;" 
EXCEPTIONAL":? 8K6;" STRENGTH" 

269 ? 86:E5=INTCK13*RNDCK1)+K1) :? 86;" 
E.S. RATING 18/";ES:F0R E=K1 TO 2800 : 
NEXT E 

276 MH=0 : MD=0 : MA=8 : MR=8 : K325=325 : K335= 
335 

310 IF ES=K13 THEN MH=K3 : MD=K6 :GOTO K3 
25 

311 IF E5>=K13-K9 THEN MH=K2 : MD=K5 : GOT 
K325 

312 IF E5>=3KK11+Ki THEN MH=K2 : MD=K4 : G 
OTO K325 

313 IF ES>=K12+K1 THEN MH=K2 : MD=K3 : GOT 
K325 

314 IF ES>=K1 THEN MH=K1 : MD=K3 :G0T0 K3 
25 

315 IF A=K9+K9 THEN MH=K1 : MD=K2 :GOTO K 
325 

316 IF A=K18+K7 THEN MH=K1 : MD=K1 : GOTO 
K325 

317 IF A=K18+K6 THEN MD=K1;G0T0 K325 

318 IF A=K3 THEN MH=-K3 : MD=~K2 :GOTO K3 
25 

319 IF A=K4 THEN MH=-K2 : MD=-K2 : GOTO K3 
25 

328 IF A<=K6 THEN MH=-K1:G0T0 K325 

325 IF D=K9+K9 THEN MR=K3 : MA=-K4 : GOTO 
K335 

326 IF D=K9+K8 THEN MR-K2 : MA=-K3 : GOTO 
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K335 

327 IF D=K8+K8 THEN HR=K1 :HA=-K2 :60T0 
K335 

328 IF D=K7+K8 THEN KA--K1:G0T0 K335 
323 IF D=KS THEN MA=K1:G0T0 K335 

33© IF D=K5 THEH MR=~K1 : MA::K2 : GOTO K33 
5 

D=K4 THEH Mfl=-K2 : MA=K3 : GOTO K33 



D=K3 THEN MR=-K3 : MA-K4 : GOTO K33 



337 
338 
333 
346 
341 



331 IF 
5 

332 IF 
5 

335 GRAPHICS l:POKE 712,128:POKE 788,2 
2:P0KE 763,22:P0KE 7S2,1:P0KE 718,128 

336 ? tt6:? 86;" ,, ;HS; ,,, S" 
86;" MODIFIERS:":? »6 
86;" HIT ";MH 
86;" DAMAGE ";MD 
86;" A/C ADJUSTMENT ";MA 
86;" R/A BONUS ";MR 

345 X (53 = IHT f 7*RND (13 3 : X (63 =IHT (3*RND ( 
13 3 : X C73 =IHT (11«RHD C13 3 : X t83 =INT (13*RH 
D C13 3 : K (33 ~IHT (25#RHD (13 3 

346 X(63=INT(3*RND(133 

358 M(53=IHT(46*RHDC13 3 : M(63 =INT (36*RN 
D(133 :M(73=INT(26*RHD(133 : M(83 =INT (58* 
RND(133 :M(S3=IHT(66*RND(133 

355 IF G$="F" THEH 365 

356 IF Y=K3 THEH H=K2*K11-K6+X (K73 : W=K 
13+K11+K3+M(K53 

357 IF Y=K2 THEH H=K12+K6+X (K73 : W=KI3- 
K18+M(K63 

358 IF Y=K4 THEH H=K12-K16-K1+X (K53 : H= 
K3*K11~K3+M(K73 

353 IF Y=K5 THEH H=K12+K18+X (K83 : W=110 

+M(K53 

368 IF Y=K7 THEH H=K12+K18+K2+X (K63 : K= 

K16+M(K83 

361 IF Y=K6 THEH H=K11 + K18+IC1 + X (K63 : W= 
86+M(K53 

362 IF Y=K1 THEH H=K12+K18+X (K33 : W=K13 
+K11+K5+M(K33 

363 GOTO 372 

365 IF Y=K3 THEH H=42*H CK6J : M=K14+K4+H 



Y=K2 THEH H=K12+X (K73 : W=K13~K5+ 



(K63 

366 IF 
M(K73 

367 IF Y=K4 THEH H=K6*K6+X (K53 : M=K6*K1 
8+K7+M(K73 

368 IF Y=K5 THEH H=K12+K6+X CK83 : H=K8*K 
18+M(K63 

363 IF Y=K7 THEH H=K12+K3+X (K53 :W=K14+ 

K5+M(K83 

378 IF Y=6 THEH H=38+X (53 : W=42+M(73 

371 IF Y=K1 THEH H=K12+K6 + X (K43 : M=K14 + 
M(K93 

372 Q1=IHT(H/123 :Q2=01*12 : 03=H-02 

373 ? 86:? 86:? 86;" HEIGHT ";Q1;"'" 
;Q3;CHRS(343 

374 ? 86;" WEIGHT ";W;"LBS." 

375 HPT=K6:0=K8:G0T0 488 

388 HP=IHT(K4*RHDtKI3+K23 :RETURH 
385 HP=INT(K6*RND(K13+K23 :RETURH 
338 HP-IHT(K8*RHD(K13+K23 IRETURH 
335 HP=IHT(K18»RND(K13+K23 :RETURH 
488 ? "WHAT LEVEL IS ";N$; '.INPUT L : IF 
Z=K2 THEH L=L+K1 

486 IF L>18 THEH ? "KYOU CAH * T START A 
CHARACTER":? "OVER LEVEL IS. TRY AGA 

IH.":? :GOTO 480 

487 IF L<=8 THEH L=l 

488 FOR J=Ki TO L : IF Z=K1 OR Z=K3 THEK 
G05UB 335 

418 IF Z=K2 OR Z=K4 OR Z=K5 THEH G05UB 

338 
415 IF Z=K6 OR Z=K7 THEH GOSUB 385 
428 IF Z=K8 8R Z=K3 OR Z=K18 THEH GOSU 
B 386 

422 HPT=HPT+HP:HEXT J:GOTO 431 

427 IF E=K3+K3 THEH HPT=HPT+ (L*K43 .GOT 
438 

428 IF E=K3+K8 THEH HPT=HPT+ (L*K3) ! GOT 
438 

423 IF E=K8+K8 THEH HPT=HPT+ a#KJ*3 : GOT 
438 

438 GOTO 432 



431 IF E>=K8+K8 THEH HPT=HPT+ (L*K23 : G6 
TO 438 

432 IF E=K3+K6 THEH HPT=HPT+L :GOTO 438 

433 IF E=K3 THEH HPTrHPT- (L*K23 :GOTO 4 
38 

434 IF E<K8 THEH HPT=HPT~L 

438 ? 86:? 86;" HIT POIHTS ";HPT 
448 IF Z=K1 OR Z=K3 THEH IF L>=12 THEH 
? 86;Y$;" 2/l ,, :G0T0 456 

445 IF Z=K1 OR Z=K3 THEH IF L>=K6 THEH 
? 86;Y$;" 3/2":G0T0 456 

446 IF Z=K2 THEH IF L>=16 THEH ? 86; Y$ 
;" 2/l":G0T0 456 

447 IF Z=K2 THEH IF L>=K7 THEH ? 86;YS 
* " 3/2" 

456 IF Y=K1 OR Y=K3 OR Y=K6 THEH GOSUB 
7806 

457 ? "K";H$;" HAS ";GP;" G8LD PIECES" 
!■» :? " PRESS AHY KEY 



:GET 81, I : CLOSE 81 



458 GOSUB 6138: 

T8 COHTIHUE" 

453 OPEH 81,4,8,"K: 

:IF I>8 THEH 468 

468 B5=IHT(L/K43+K2:IF Z=K6 OR Z=K7 TH 

EH 462 

461 GOTO 588 

462 GRAPHICS 1+16 



463 
465 
466 
467 
468 
463 
476 
471 
472 
473 
474 

II 

475 

566 

581 

562 

585 

516 

EC 

515 

,23 

526 

,33 

536 

535 

556 

8,22 

551 

S" : ? 

552 

,13 

553 

554 

555 

556 

557 

558 

553 

568 

561 

562 

563 

564 

565 

566 

567 

568 

569 

576 

571 

572 

573 

574 

575 

576 

577 

578 

573 

588 



86:? 86:? 86:? 86 



86;" 
86;" 
86;" 
86;" 
86;" 
86;" 
86;" 
86;" 
86;" 
86:? 



BS - - 
PP - - 

LOCKS 



X";B5 

";T(L,K13 

";T(L,K23 



TRAPS - - ";T(L,K33 



MS 
HS 



■;T(L,K43 
";T(L,K53 



HEAR - - - ";T(L,K63 

CLIMB - - ";T(L,K73 

LANGUAGES ";T(L,K83 
86:? 86;" 



THIEVES ABILITIES 



FOR I=K1 TO KiO A 3*K5:HEXT I 
IF Z=K8 OR Z=K3 THEH 585 
IF Z=K16 THEH 556 
GOTO 4333 

GRAPHICS 2+16: POKE 712 .166 

? 86:? 86:? 86:? 86;" 3IECH3KM5CJ 

";MU(B,13 

? 86:? 86;" [aEECUUB MlE ";kii«b 



? 86:? 86;" 



MAXIMUM SPELLS 



;MU(B 



FOR I=K1 TO 4688:HEXT I 

GOTO 4333 

GRAPHICS 1+16:P0KE 712,212:P0KE 71 

? 86:? 86:? 86:? 86," EECHBKimi 

86 
? 86:? 86;" ARMOR CLASS ";MK(L 



? 86; 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
? 86; 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
IF MK 
? 86; 
? 86: 
? 86; 
? 86; 



" MOVE 

(L,K33=Ki THEH 
(L,K33=54 THEN 
(L,K33=32 THEN 
(L,K33=K2 THEN 
(L,K33=52 THEN 
(L,K33=K3 THEH 
(L,K33=K4 THEH 
" ATTACKS/ROUND 
(L,K43=13 THEH 
(L,K43=14 THEN 
(L,K43=16 THEN 
(L,K43=27 THEN 
(L,K43=28 THEN 
(L,K43=33 THEN 
(L,K43=212 THEH 
(L,K43=312 THEH 
(L,K43=413 THEN 
(L,K43=416 THEH 
(L,K43=517 THEN 
(L,K43=528 THEN 
(L,K43=624 THEN 
(L,K43=536 THEN 
(L,K43=832 THEN 
" DAMAGE/ATTACK 
? 86 : "* 86 



";MK(L,23 j 

M$="i" 

N$="5/4" 

MS=*"3/2" 

MS="2" 

MS="5/2" 

M$="3" 

M$="4" 
;MS 

D$="1D3" 

D5="1D4" 

DS="1D6" 

DS="1D6+1" 

DS="2D4" 

D$="3D3" 
DS="2D6" 
DS="3D4" 
DS="3D4+1" 
DS="4D4" 
D$="4D4+i' 
DS="5D4" 
D5="6D4" 
DS="5D6" 
DS = "'4D8" 
";D$ 



SEE THE PLAYERS 
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599 FOR I=K1 TO 5868:NEXT I 

1999 GOTO 4999 

2000 ? "4*IF YOU'RE HAVING TROUBLE PIC 
KING":? "d NAME FOR YOUR CHARACTER, PE 
RHAPS" 

2805 ? "YOU'D LIKE A FEW SUGGESTIONS. 

II 

2010 ? "YOU'RE WELCOME TO USE ONE OF T 
HESE:" 

2815 ? "**SETH THE HUGE", "BUCKTHORN" 

2816 ? "AARON THE SWIFT", "ELLIDE" 

2817 ? "BRIAN OF BLACKMOOR", " JANO" 

2018 ? "ALONSO THE HOOK" , "TAPHENESE" 

2019 ? "SIR BAGLEY","BAAREN SATO" 
2828 ? "4 + IF YOU WANT ONE OF THESE . JU 
5T":? "TYPE IN THE NAME AND PRESS OHUQ] 

SCJ." 

2822 ? "♦IF YOU DON'T, TYPE 'NO' AND P 

RESS":? "HlIEECl-":? "4NAME":: INPUT N$: 

IF N$="NO" OR NS="H" THEN N5="HH00ZIT" 

2828 GRAPHICS 1:P8KE 708,48:P0KE 752,1 

." RETURN 

2558 A=J(K1J :B=JCK2) :C=JCK3J :A1=JCK4) : 

B1=J(K5) :C1=J(K6) :? "«" 

2555 ON Y-Kl GOTO 2688,2588,2638,2658, 

2678,2788 

2576 RETURN 

2588 IF A<K8 THEN ? NS ; ZS : ? 5T$;B$;" D 

WARF.":GOTO K17 

2585 IF B1<K6*K2 THEN ? NS;ZS:? CHS;BS 

;" DWARF.": GOTO K17 

2590 IF G$="F" THEN IF JfK13>K9+K8 THE 

N J«1J=K10*K7 

2595 IF JCK4)>K9+K8 THEN JCK4>=K9+K8 

2597 IF JCK6J>K8+K8 THEN JCK6J=K8+K8 

2599 RETURN 

2600 IF B<K8 THEN ? NS;ZS:? IN$;BS;"N 
ELF.":GOTO K17 

2685 IF AKK7 THEN ? NS;ZS:? DXS;BS;"H 

ELF.":G8T0 K17 
2618 IF B1<K6 THEN ? N$;Z$:? CNS;BS;"N 

ELF.":GOTO K17 
2615 IF C1<K8 THEN ? HS;ZS:? CH$;BS;"N 

ELF.":G8T0 K17 
2620 IF 6S="F" THEN IF JCK1J>K8+K8 THE 
N J(K1)=K8+K8 
2625 RETURN 

2638 IF A<K6 THEN ? NS;Z$:? ST$;B$;" G 
NOME.": GOTO K17 

2635 IF B<K7 THEN ? N$;Z$:? INS;B$;" G 
NOME.": GOTO K17 

2640 IF BKK8 THEN ? NS;ZS:? CN$;BS;" 
GNOME. ":GOTO K17 

2645 IF G$="F" THEN IF JCK1)>K3*K5 THE 
N JCK1J=K3#K5 
2648 RETURN 

2658 IF B<K4 THEN ? NS;Z$:? IN$;BS;" H 
ALF-ELF.":GOTO K17 

2655 IF AKK6 THEN ? H$;ZS:? DXS;BS;" 
HALF-ELF.": GOTO K17 

2668 IF B1<K6 THEN ? NS;ZS:? CNS;B$;" 
HALF-ELF. ":GOTO K17 

2665 IF G$="F" THEN IF JCK13>K9+K8 THE 
N JCK1J=K9+K8 
2668 RETURN 

2678 IF A<K6 THEN ? NS;ZS:? 5T$;B$;" H 
ALFLING.":GOTO K17 

2675 IF B<K6 THEN ? NS ; ZS : ? IN$;BS;" H 
ALFLING.":GOTO K17 

2688 IF AKK8 THEN ? NS;ZS:? DXS;BS;" 
HALFLING.":GOTO K17 
2685 IF BKK18 THEN ? NS;ZS:? CHS;BS;" 

HALFLING.":GOTO K17 
2698 IF GS="M" THEN IF J(K1J>K9+K8 THE 
N J(K1)=K9+K8 

2694 IF G$="F" THEN IF JfKlJ>K7+K7 THE 
H JCK1J=K7+K7 

2695 IF JCK31>K9+K8 THEN JIK3J=K9+K8 

2696 RETURN 

2788 IF A<K6 THEN ? NS;ZS:? ST$;BS;" H 

ALF-ORC.":GOTO K17 

2785 IF BKK6+K7 THEN ? NS;Z$:? CN$;BS 

;" HALF-ORC.":GOTO K17 

2718 IF JCK2J>K9+K9 THEN JtK23=K9+K8 

2715 IF JCK3J>K7+K7 THEN J£K3J=K7+K7 

2720 IF JfK43>K7+K7 THEN JCK41=K7+K7 



2725 IF J(K6)>K6+K6 THEN J(K6>-K6+K6 

2738 RETURN 

4999 GRAPHICS 1:SETC0L0R 2,L,4:P0KE 75 

2,l:SETC0L0R 4,L,4:G0T0 168 

5888 A=FCKIJ :B=FtK2J :C=FCK3) :D=FIK4) :E 

=FCK5) :F=FCK6J :? "«" 

5885 ON Z GOTO 5188,5288,5388,5488,558 

8,5688,5788,5880,5988,5958 

5855 RETURN 

5188 IF A<K9 THEN ? NS;ZS:? 5T$;B$;" F 

IGHTER.":GOTO K241 

5105 IF E<K7 THEN ? NS;Z$:? CN$;BS;" F 

IGHTER.":GOTO K241 

5110 RETURN 

5200 IF A<K18+K3 THEN ? HS;Z$:? 5T$;B$ 

;" RANGER. "JGOTO K241 

5205 IF B<K10+K3 THEN ? HS;ZS:? IN$;B$ 

;" RANGER. " : GOTO K241 

5210 IF C<K10+K4 THEN ? N$;Z$:? WlS;BS 

;" RANGER. ":G0T0 K241 

5215 IF E<K18+K4 THEN ? NS;ZS:? CN$;BS 

;" RANGER.": GOTO K241 

5228 IF Y=K3 THEN ? DMS ;"R ANGERS ." :GOT 

K241 

5225 IF Y=K2 THEN ? ES; "RANGERS -" :GOTO 

K241 
5238 IF Y=K4 THEN ? GN$; "RANGERS .": GOT 
K241 

5235 IF Y=K6 THEN ? HAS; "RANGERS .": GOT 
K241 

5248 IF Y=K7 THEN ? HOS; "RANGERS .": GOT 
K241 
5245 RETURN 

5388 IF A<K10+K2 THEN ? NSjZS:? STS;BS 
;" PALADIN. ":GOTO K241 

5305 IF B<K9 THEN ? NS;ZS:? INS;BS;" P 
0LADIN.":GOTO K241 

5318 IF C<K10+K3 THEN ? NS;ZS:? WlS;BS 
;" PALADIN.": GOTO K241 

5315 IF E<K9 THEN ? NS;ZS:? CNS;BS;" P 
ALADIN.":GOTO K241 

5320 IF F<K9+K8 THEN ? NSjZS:? CHS;BS; 
" PALADIN. ":GOTO K241 

5325 IF YOK1 THEN ? "ONLY HUMANS CAN 
BE PALADINS.": GOTO K241 
5338 RETURN 

5480 IF C<K9 THEN ? NS;ZS:? WlS;BS;" C 
LERIC.":GOTO K241 

5405 IF Y=K6 THEN ? HAS; "CLERICS .": GOT 
K241 
5418 RETURN 

5588 IF C<K10+K2 THEN ? NS;ZS:? WlS;BS 
;" DRUID.": GOTO K241 

5505 IF F<K10+K5 THEN ? NS;ZS:? CHS;BS 
;" DRUID.": GOTO K241 
5510 IF Y=K3 THEN ? DWS ; "DRUIDS .": GOTO 

K241 
5515 IF Y=K2 THEN ? ES; "DRUIDS ." :GOTO 
K241 
5520 IF Y=K4 THEN ? GNS; "DRUIDS ." :GOTO 

K241 
5525 IF Y=K7 THEN ? HOS;"DRUIDS ." : GOTO 

K241 
5530 RETURN 

5600 IF D<K9 THEN ? NS;ZS:? DXS;BS;" T 
HIEF.":G0TO K241 
5605 RETURN 

5700 IF A<K10+K2 THEN ? NS;ZS:? 5TS;BS 
;"N ASSASSIN.": GOTO K241 

5705 IF B<K18+K1 THEN ? NS;ZS:? INS;BS 
;"N ASSASSIN.": GOTO K241 

5718 IF D<K10+K2 THEN ? NS;ZS:? DXS;BS 
;"N ASSASSIN.": GOTO K241 

5720 IF Y=K6 THEN ? HAS;"ASSA5SINS . " :G 
OTO K241 
5725 RETURN 

5888 IF B<K9 THEN ? NS;ZS:? INS;B$;" M 
AGIC-USER." :G8T8 K241 

5805 IF D<K6 THEN ? NS;ZS:? DXS;BS;" M 
flGIC-USER." :GOTO K241 

5810 IF Y=K3 THEN ? DWS; "MAGIC-USERS . " 
:GOTO K241 

5815 IF Y=K4 THEN ? GNS; "MAGIC-USERS . " 
:GOTO K241 

5820 IF Y=K7 THEN ? HOS; "MAGIC-USERS . " 
:GOTO K241 
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5825 IF Y=K6 THEN ? HAS; "MAGIC-USERS . " 

:GOTO K241 

5838 RETURN 

5988 IF B<K18+K5 THEN ? NS;ZS:? IN$;B$ 

;"N ILLUSI8NIST.":G8T0 K241 

5985 IF D<K18+K6 THEN ? NS;ZS:? DX$;B$ 

;"N ILLUSIBNIST.":G0T8 K241 

5918 IF Y=K3 THEN ? DMS J "ILLUSIONISTS . 

":GOTO K241 

5915 IF Y=K2 THEN ? ES; "ILLUSIONISTS . " 

:GOTO K241 

5928 IF Y=K7 THEN ? HOS; "ILLUSIONISTS . 

":GOTO K241 

5925 IF Y=K6 THEN ? HAS ; "ILLUSIONISTS . 

":G0T8 K241 

5938 RETURN 

5958 IF A<K18+K5 THEN ? NS;ZS:? 5TS;BS 

;" M8NK.":G8T8 K241 

5955 IF C<K18+K5 THEN ? NS;ZS:? MlS;BS 

;" MONK.":GOTO K241 

5968 IF D<K18+K1 THEN ? NS;ZS:? DXS;BS 

;" MONK.": GOTO K241 

5965 IF E<K18+K1 THEN ? NS;ZS:? CNS;BS 

;" M8NK.":G0T0 K241 

5978 IF YOK1 THEN ? "ONLY HUMANS CAN 

BE MONKS.": GOTO K241 

5975 RETURN 

6138 IF D=18 THEN T CL,K1J =T f L, K1J +K18 : 

T CL , K2J =T CL , K2J +15 : T CL , K3J =T (L , K3> +K5 : 

TCL,K4)=TCL,K4J+18:TCL,K5)=TCL,K5J+18 

6131 IF D=K18+K7 THEN T CL, K1J =T CL, K1J + 
K5:TCL,K2)=TCL,K2>+K18:TCL,K4)=TCL,K43 
+K5 : T CL , K5J -T CL , K53 +K5 

6132 IF D=K16+K6 THEN T CL,K21 =T CL,K2J + 
K5 

6133 IF D=K18+K2 THEN T CL, K4)=T CL,K4) - 
K5 

6134 IF D=K18+K1 THEN T CL , K1>=T CL ,K1) - 

K5 : T CL , K3) =T CL, K3 J -K5 : T CL , K4) = T CL , K4) - 
if | a 

6135 IF Y=K3 THEN T CL .K2J =T CL .K2J +K18 : 
T CL , K3J =T CL, K31 +15 : T CL , K7> =T CL , K7J ~K18 
:TCL,K83=TCL,K85-K5 

6136 IF Y=K2 THEN T CL, Kl) =T CL ,K1) +K5 : T 
CL,K2J=TCL,K2J-K5:TCL,K4)=TCL,K4J+K5:T 
CL,K5)=TCL,K5J+K18:TCL,K6)=TCL,K6J+K5 

6137 IF Y=K4 THEN T CL,K21 =T CL , K2J +K5 : T 
CL,K3)=TCL,K3J+K18:TCL,K4J=TCL,K4)+K5: 
TCL,K5J=TCL,K5)+K5:TCL,K6J=TCL,K6)+18 

6138 IF Y=K4 THEN T CL, K7) =T CL, K7) -K15 

6139 IF Y=K5 THEN T CL,K1) =T CL, Kll +K18 : 
TCL,K5J=TCL,K5J+K5 

6148 IF Y=K6 THEN T CL, K13 =T CL,K1) +K5: T 
CL,K2J=TCL,K2)+K5:TCL,K3J=TCL,K3J+K5:T 
CL,K4J=TCL,K4i+K18 

6141 IF Y=K6 THEN T CL, K5J -J CL, K5) +K18+ 
K5:TCL,K6)=TCL,6)+K5:TCL,K7J=TCL,K7J-K 
18+K5 : T CL , K8J =T CL , K8) -K5 

6142 IF Y=K7 THEN T CL,K1J =T CL,K1) -K5 : T 
CL,K2J=TCL,K2)+K5:TCL,K33=TCL,K3J+K5 

6143 IF Y=K7 THEN T CL, K63 =T CL, K6J +K5 : T 
CL , K73 =T CL , K7 J +K5 : T CL , K8 J = T CL , K8 J -K18 
6288 RETURN 

7888 AI=IHT C2 . 5*B-16J : AW=INT CI . 5*C~16J 
:AC=INTC8.5*F-16) 

7881 IF AI<0 THEN AI=8 

7882 IF AM<8 THEN AM=8 

7883 IF AC<8 THEN AC=8 

7884 AT=AI+AU+AC 

7885 PS=INTCK13*RNDCK1)+AT+1J : IF PS>=K 
13 THEN ? 1*6:? »6;" ";NS;" HAS":? tt6;" 

PSIONIC ABILITY" 
7818 AI=B-12:AW=C-12:AC=F-12:IF AI<8 T 
HEN AI-K0 

7811 IF AM<K8 THEN AM=K6 

7812 IF AC<K8 THEN AC=K8 

7813 AT=AI+AM+AC 

7015 MP=K8:0T=K8:IF B>16 THEN 0T=0T+K1 

7828 IF C>16 THEN 8T=0T+K1 

7825 IF F>16 THEN 0T=0T+K1 

7838 IF 8T=K2 THEN MP=K2 

7835 IF 0T=K3 THEN MP=K4 

7848 P5T=INT CK13*RND CK1 J +K13 +AT*MP 

7845 IF PS>=K13 THEN ? "UPSIONIC ABILI 

TY = ";PST*K2 



7858 IF PS>=K13 THEN ? "PSIONIC STRENG 
TH = ";PST:FOR 1=1 TO 2808: NEXT I 
7855 RETURN 

8808 ERLN=256*PEEK C187J +PEEK C186 J 
8818 CUR=PEEKC98J :? "*":? "INPUT ERROR 
— TRY AGAIN!" : FOR 1=1 TO 58:S0UND 8, 
1+50, 10, 8: NEXT I:SOUND 8,6,8,8 
8828 TRAP 8800: GOTO CERLN) 



CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 488,646,294,986,573,733,840,75, 

164,298,387,678,642,162,878,7586 

75 DATA 779,953,859,964,828,531,652,63 

8,288,981,858,829,789,454,917,11224 

185 DATA 983,725,877,652,289,722,281,7 

81,592,73,764,366,686,497,591,8479 

192 DATA 58,773,366,178,279,815,74,452 

,522,485,817,848,185,465,554,6871 

236 DATA 17,249,288,686,714,379,685,3, 

317,65,53,57,65,49,159,3786 

253 DATA 226,168,424,821,583,736,291,8 

8,18,461,559,78,528,442,287,5526 

316 DATA 446,668,381,382,729,393,386,3 

79,683,93,33,37,41,187,889,5479 

337 DATA 299,54,232,810,475,878,18,256 

,793,358,626,276,254,643,782,6738 

362 DATA 281,735,415,515,289,881,846,1 

72,587,122,333,644,361,424,433,6818 

398 DATA 435,617,285,269,511,269,567,6 

76,691,234,736,733,738,715,685,7993 

432 DATA 984,355,534,141,685,697,631,5 

82,887,785,217,512,468,716,216,8090 

463 DATA 441,2,498,674,716,584,486,653 

,658,959,331,418,835,807,4,7986 

585 DATA 788,272,566,572,448,16,452,84 

6,621,886,886,820,803,813,817,9428 

559 DATA 819,817,582,799,883,810,269,8 

16,822,996,995,48,2,62,997,9637 

574 DATA 18,6,25,452,399,156,871,478,8 

13,773,57,674,653,298,427,6684 

2818 DATA 800,287,536,605,93,285,185,8 

15,288,638,267,394,483,823,421,6764 

2685 DATA 76,45,48,13,811,288,264,342, 

996,819,628,763,674,38,821,6558 

2676 DATA 713,688,778,379,37,22,393,82 

8,698,25,376,379,374,386,885,6873 

4999 DATA 383,943,27,882,778,728,791,8 

26,815,813,815,548,635,527,514,9849 

5248 DATA 534,887,928,742,915,728,81,9 

55,799,888,472,868,951,948,634,11174 

5515 DATA 236,621,637,885,451.815,412. 

399,489,46,826,183,187,88,76,6177 

5828 DATA 73,54,814,924,953,628,256,62 

1,662.817,565,559,554,544,576,8548 

5975 DATA 831, 197, 387, 875, 881,473, 366, 

488,328,827,796,449,131,857,188,7986 

6288 DATA 795,648,7,79,981,298,152,783 

,56,998,289,913,365,378,182,6756 

7835 DATA 116,555,697,952,806,33,188,2 

58,3597 
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DUNGEONS & DRAGONS 
HOUSEKEEPING 2 



TM 



32K Cassette or Disk 



by Bob Curtin 



With the addition of the random access capability 
of a disk drive, Dungeons & Dragons House- 
keeping (disk version) comes into its own, with 
several new functions, bilateral combat, and a dras- 
tically cleaned-up act. The following is a detailed 
rundown of each of the program functions and, 
where applicable, some suggestions on their use. 
This program is quite flexible and, with a little ima- 
gination, can make your job as a Dungeon Master a 
whole lot easier. 

Incidentally, when I use the term "monster," I'm 
referring to all non player-character creatures, 
whether human, drooling beast, or anything in be- 
tween. Players and player-characters are, of course, 
the people for whom you're running the dungeon, 
and the characters they're playing. 

I do have one word of caution. If, when you're 
typing in this program, you're rewarded with an 
ERROR 4 (too many variables), don't panic. First, 
find your typing error, change it, and then follow the 
procedure outlined in pages 2 and 3 of your BASIC 
Reference Manual for wiping out excess variable 
names. The reason for the problem in the first place 
is the fact that I've used all 128 variable names avail- 
able, and if you inadvertently add one of your own, 
you'll get that error. 

M - MELEE (combat) 

Where the cassette version of D&D Housekeep- 
ing handled the combat for the player characters 
only and left the monster combat to be done man- 
ually, the disk version does it all. 

The MELEE function works very closely with the 
ENTER ROOM and LOAD ROOM functions. 
Those two functions make the monster data avail- 
able for combat purposes as needed. The player 
character data is always contained in memory, but 
the monster data is loaded as encountered, either 
from disk or on the fly. The computer asks only 
which opponent is to be fought. The players, of 
course, make that choice for themselves, and you as 



the Dungeon Master make that choice for the mon- 
sters. As in a normal dungeon, you'd have some sort 
of graphic representation of the battle set up on the 
table top — usually with miniature figures. 

In order, the computer makes the following com- 
putations: The attacker's class and level are looked 
up and the appropriate combat table consulted to 
obtain a "to hit" number against the opponent's 
armor class. A random number is generated and any 
hit modifiers added. If a hit is obtained, damage is 
"rolled" based on the weapon used, and then any 
damage modifiers are added on. Hit points lost are 
automatically deducted. The computer then checks 
•to see if the attacker is entitled to more than one 
attack this round, either because of weapon type or 
level, and if so, repeats the procedure. Otherwise 
play passes to the next combatant. 

The combat alternates back and forth between the 
players and monsters, that is, all players make their 
attacks, then all monsters make theirs, etc. Killed or 
unconscious combatants are automatically removed 
from the cycle, and combat can be broken off at any 
time, either individually or en masse. 

Each player character may have up to five 
weapons, but weapon number 5 is reserved for mis- 
sile weapons. As such, it's the only weapon modified 
by the R/A Bonus, and conversely not modified by 
normal hit and damage modifiers. Weapon number 
5 may also be assigned multiple hits per round. For 
instance, D&D rules allow a player with a short bow 
to fire two arrows per combat round. It's conceiv- 
able for a player with multiple rounds of combat to 
fire up to six arrows in a turn! 

By entering '33' as an opponent number and 
pressing RETURN, spell damage may be inflicted on 
the monster of your choice. If the spell affects more 
than one monster, you can repeat the procedure as 
many times as desired by pressing 'S'. To pass play to 
the next player, just press any other key. You may 
add hit points to the monster of your choice by en- 
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tering the amount of hit points you wish to add in the 
form of a minus number. For instance, suppose the 
party were fighting a particularly nasty troll which 
regenerated ten hit points a turn. After every turn, 
simply enter the MELEE mode, use the spell func- 
tion for the first available character, and enter minus 
ten (-10) as the amount of damage inflicted by the 
spell. Ten hit points will be added to the monster 
whose number you designated. After returning to 
the main menu (by entering '32' and pressing RE- 
TURN) you may resume play normally. 

Entering '34' as an opponent number will take you 
directly into the monster combat. This is useful for 
those times when the bad guys have the initiative. 
Note that, once into monster combat, you may pass 
play onto the next monster by pressing 'P' or return 
to the main menu by pressing 'R'. The only other 
commands recognized in that mode are the numbers 
to 9, corresponding to the player characters' num- 
bers. 

Damage inflicted by non -combat means may be 
entered directly through the character sheet mode, 
which is why I didn't include a spell function in the 
monster side of the combat. 

A word to the purists out there. D&D combat can 
get as complex as you could possibly want, with in- 
numerable modifiers, zone hits, partial armor des- 
truction, ad nauseum. This program definitely does 
not take all that there is in D&D combat rules into 
account. It'd take a program all by itself to do that. 
The basic combat system is retained without modifi- 
cation, with the different combat tables for the dif- 
ferent classes, hit and damage modifiers, multiple 
attacks, missile attacks, and so on. Those of you 
who're sticklers for detail and thrive on complexity 
would perhaps be better served by doing your 
combat manually and using the rest of the program 
for housekeeping. 

# - CHARACTER SHEET 

From the main menu, pressing a number between 
and 9 inclusive will display a character sheet on the 
screen. The sheet contains the essential information 
on each character which is needed as a reference 
throughout the game. 

Hit points, money, and weapon status can be 
changed directly in this mode, and all other informa- 
tion can be changed through the initialization mode. 
Additional information can be kept in an individual 
file accessed through the ROOMS function. This 
additional file would contain listings of weapons, 
armor, equipment, special items, magical spells, etc., 
as well as any pertinent information on the character 
itself, like special talents, skills, and so on. 

You may directly enter MELEE, ROOMS, or re- 
turn to the main menu by pressing M, Z, or R, res- 
pectively. 



S - DUNGEON STATUS 

The status display lists the dungeon time, the date, 
weather conditions (outside, of course), tempera- 
ture, and wind. The weather conditions are random 
and not subject to control by the DM, although they 
can certainly be ignored if they don't fit into the 
scheme of things. 

The time and date, on the other hand, can be 
changed. Pressing '1' will increment the time by ten 
minutes, '2' by an hour, and '3' by a day. In addition, 
one minute is added to the time for every combat 
round played. 

Press 'R' to return to the main menu. 

E - ENTER ROOM 

To explain the ENTER ROOM function, 1 also 
have to explain the LOAD ROOM function at the 
same time. Pressing 'E' will cause the question, 
"What is the room number?" to be displayed on the 
screen. It is asking you which of the files created by 
LOAD ROOM you want to be dumped into mem- 
ory. At this point, I'll explain the LOAD ROOM 
function and come back to ENTER ROOM. 

L - LOAD ROOM is a routine which allows you to 
load monster data into files to be called up later by 
the ENTER ROOM function. This data is used in the 
MELEE function, and is actually all of the monster 
statistics for combat resolution. The data includes 
the number of monsters, hit dice, individual hit 
points, number of attacks, and the damage per at- 
tack. 

Pressing L will fetch up the same question: "What 
is the room number?" You may enter any 3-character 
code you wish. (This is actually the filename exten- 
der for a file called D:COMBAT.) The code can be 
any combination of three numbers and/or letters, 
but if you were smart, you'd code them to corres- 
pond to the room numbers on your dungeon map, or 
the numbered encounter areas in your outdoor dun- 
geon. You can use this function to store the statistics 
for taverns full of troublemakers, and you can also 
use it to load statistics on the spot for unexpected or 
random encounters. 

As an example of how these two functions work , I 
give you the following. Every good Dungeon Master 
has a map of his dungeon and some sort of key to tell 
him what's in each of the rooms. The rooms are nor- 
mally numbered, and the key describes what's in 
each of the numbered rooms, including traps, mon- 
sters, treasure, etc. As the dungeon party explores 
the different rooms, they battle the monsters lurking 
within, with the Dungeon Master taking the monster 
statistics from his key and conducting the combat 
manually. With this program, you'd simply type in 
the room number to load the statistics into memory 
and then use the MELEE function to conduct com- 
bat. 
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By loading the monster data into files ahead of 
time, the dungeon runs smoothly and with a mini- 
mum of time spent on game mechanics. Your players 
get more actual playing time, and your computer 
does most of the work. 

After you've assigned a room number, the LOAD 
ROOM function will then ask, "How many mon- 
sters?" Simply type in the number of monsters in 
that particular room or encounter area. You will then 
be asked for the monsters' hit dice (equivalent to a 
character's level). You may not have monsters of 
different levels in the same room. If you insist on it, 
add up the levels and divide by the number of mon- 
sters to get an average. It works out pretty close. 
You'll be asked next for the monster armor class. If 
you have monsters with different armor classes, take 
an average, or do the odd ones by hand. 

Next, give the hit points for each monster. Here, 
you can compensate for averaged armor class or level 
by adding hit points. 

After all of the monsters have been assigned their 
hit points, you'll be asked the number of attacks per 
turn for each monster (you know, the old claw/claw/ 
bite routine). Again, you must average out the dam- 
age for attacks which are different. For instance, if 
the claws did 4 hit points damage and the bite did 8, 
add them together (4 + 4 + 8) and divide by the 
number of attacks (3 in this case), rounding up any 
fractions. 

After you type in the damage per attack, a file will 
automatically be created, and the program will 
return to the main menu. Note that the statistics you 
just entered are still in memory, so you could go right 
to MELEE if you wished. 

Lastly, the maximum number of monsters which 
can be in a single file is thirty. 

D - DICE 

Entering a number of any magnitude, including 
negative numbers, will generate a random number 
between that number and one, inclusive. By enter- 
ing anything other than a number, the program will 
return to the command menu. 

FILE DATA and GET DATA 

Pressing 'F' or 'G' will conjure up the respective 
routines for saving or retrieving the character statis- 
tics and dungeon status data stored in memory. I 
made this a two-step process so that, if either letter is 
pressed accidentally, you have a chance to override 
the command. 'Y' will initiate the command, and 'N' 
will override and return the program to the 
command menu. 

To file data, type in any legal filename, but without 
the device call. In other words, if you wanted your 
filename to be "D:MURRAY 123", simply type 
MURRAY. 123. 

If, when retrieving data, you call for a non-existent 
file, the program will list the files on the disk in the 



disk drive and then return to the command menu. 
To get data, follow the same procedure as filing 
data. 

I - INITIALIZATION 

This mode is used to initially enter the player char- 
acter statistics, change statistics, or add new player 
characters. Note that, before any data is entered, the 
player number must be specified. Once you've iden- 
tified a particular player, you may enter any number 
of statistics. If you want to enter data for another 
player, you must re-identify him. 

Most of the entries are self-explanatory, but a few 
need some words of clarification. 

As I stated before, each character may have a maxi- 
mum of five weapons in this program, and each 
weapon must be assigned a number. Weapons one 
through four are hand held weapons, and the 
number you'll be asked to enter is the maximum 
possible damage that the weapon can inflict. For in- 
stance, player 2's number one weapon is a longsword 
capable of 1-8 hit points of damage. You'd simply 
enter an 8 when called upon to do so. If no weapon 
exists for a particular number, enter 0. 

The number of attacks per round must be entered 
as follows. Enter 1 for one attack per round. Enter 2 
for two attacks per round. Enter 3 for three attacks 
every two rounds. 

Finally, enter exceptional strength bonuses in the 
form of a decimal (18/77 would be entered as 
18.77). 

ROOMS and WRITE 

The biggest headache in running a dungeon is or- 
ganizing the maps, room descriptions, character 
sheets, combat tables, reference books, index cards, 
notes and dice into a system where information can 
be looked up and processed quickly enough to keep 
the game from bogging down. It isn't easy or even 
always possible. This part of the program can help, 
though, by eliminating the need for a lot of that 
paperwork. 

The WRITE function allows you to write room 
descriptions, non-player character sheets, artifact or 
treasure descriptions, or virtually anything you 
want, and save it on disk. You'd code the files with 
the same 3-digit code used for the LOAD ROOM 
files, except this filename extender belongs to a file 
named D: WITCHES. The reason for the different 
filenames is so that you could have a room descrip- 
tion and a monster data file with the same code num- 
ber. The intent of this feature was to enable a Dun- 
geon Master to type his room descriptions and save 
them on disk. At the same time, any monsters in 
those rooms would have data files created for them 
with the same room numbers. The DM would then 
only have to type 'Z' and a room number to see what 
was in the room, and, if combat was likely, to call up 
the monster data file through the ENTER ROOM 
function to resolve it. 
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You're not limited to a single screen of text, either. 
You can write up to 300 lines of text, or roughly thir- 
teen screens on a single file. When the file is called 
back, only one screen at a time will be displayed; 
pressing any key will display subsequent lines. 

To use the WRITE function, type in a code num- 
ber. A data file will be created. The screen will clear, 
except for a question mark, which is actually an 
input prompt. Simply enter one line at a time, press- 
ing RETURN at the end of the line. If you want to 
leave blank lines, just press RETURN. When you've 
finished and want to file it, press RETURN, type one 
asterisk (*), and press RETURN again. 

To retrieve what you've written, press 'Z' - 
ROOMS and type the same code number. What 
you'd written will be displayed on the screen. 

The applications for this particular function are 
many and varied. For example, you could possibly 
use the keyboard graphics symbols to create room 
diagrams along with the descriptions. Use your 
imagination, experiment with it, and above all prac- 
tice using it until the commands become second 
nature. I think you'll find that the speed and accur- 
acy are well worth the effort. □ 



Program outline. 

Lines 4-24 — Initialization 
Lines 25-75 — Combat tables 
Lines 80-86 — More Initialization 
Lines 89-98 — Input number of players 
Lines 100-550 — Combat routine, combat 
table adjustment & multiple attacks routine 
Lines 1000-2050 — Race input and display 
Lines 3000-3030 — Save character data 
Lines 3500-3525 — Retrieve character 
data 

Lines 4000-6045 — Store character data 
(Initialization Mode) 

Lines 6200-6900 — Monster Combat 
Lines 6905-6915 — ENTER ROOM rou- 
tine 

Lines 7000-7175 — Weather, time, date, 
etc. routines 

Lines 7500-7600 — ROOMS routine 
Lines 8050-8075 — DICE routine 
Lines 8500-8590 — WRITE routine 
Lines 9000-9019 — Main Command Menu 
Lines 9505-10065 — Character Sheet dis- 
play and input 

Lines 15000-15040 — LOAD ROOM rou- 
tine 

Lines 20000-20005 — Input Error Han- 
dler 

Lines 30000-30055 — Disk directory 
lister 



Command table. 



MODE 


COMMAND 


RESULT 




to 29 


Indicates the number of the player 
character's opponent in combat 


MELEE 








31 


Pass play to next player 




32 


Return to main menu 




33 


Activate the Spell Function ('S' to 
repeat) 




34 


Go directly to monster combat 


Monster 


'N' 


Return to main menu 


Combat? 


■y 


Go to monster combat 




■ p. 


Pass play to next monster 




•R' 


Return to main menu 




to 9 


Indicates the monster's opponent 
in combat 




to 9 


Displays the indicated player's 
statistics 


CHARACTER 


•w 


Prepare/put away weapon. - put 


SHEET 




away weapon. 1 to 5 - weapon num- 
ber prepared 




'H' 


Change Hit Points 




'G' 


Change Gold Pieces 




'S' 


Change Silver Pieces 




'C 


Change Copper Pieces 




■E' 


Change Electrum Pieces 




■p. 


Change Platinum Pieces 




'Z' 


Go to ROOMS function 




'M' 


Go to MELEE function 




'Ft' 


Return to Main Menu 




1 


Increments minutes by ten 


DUNGEON 


2 


Increments hours by one 


STATUS 


3 


Increments days by one 




•R' 


Return to Main Menu 




XXX 


Any three-character alphanumeric 


ENTER 




code calls up and loads the mon- 


ROOM 




ster combat statistics filed under 



that code by the LOAD ROOM 
function (filename: "D:COMBAT 
XXX) 



DICE Any number Generates a random number be- 

tween 1 and the number entered. 
Will accept negative numbers. 
Any letter Return to main menu 

FILE Any legal filename Files player characterstatisticsand 

DATA Dungeon Status data under given 

filename (see text for details) 

GET Any legal filename Retrieves player character statis- 

DATA tics and the Dungeon Status Data 

filed under the given filename (see 

text for details) 



INITIALIZATION 



Stores statistics in memory per the 
listed items. Note that the player 
number must be specififed first, be- 
fore any other data is entered. 



LOAD ROOM XXX 



See ENTER ROOM and text 



WRITE 



Allows you to type up to thirteen 
screens full of text and save it to 
disk underathree-character alpha- 
numeric code (filename: 
"D:WITCHES.XXX) 



ROOMS 



Allows you to retrieve the text filed 
under the given code by the WRITE 
function 
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4 GRAPHICS IMPOSITION 4,12:P0KE 783.0: 

POKE 710,0:? »6;"PLEASE WAIT" : TRAP 200 

00 

10 DIM CTC20.18) ,A$(10) ,B$(10) ,C$C10) , 

D$(10) , ES(10),FS(10) . GStlO) ,H$C10) , J$ C 

10) ,K$C10) ,Y$(3) ,0C(10) ,L CIO), HP (10) 

15 DIM GP(10) ,SP(10) ,CPC10) ,PP(10) ,EP( 
10),HM(10) ,DM(10) ,RA(10) , ST (10), WD (10, 
5) ,Cfl0) ,TC3) ,AZ$(15) ,5B(1B) 

16 DIM ACA(IO) ,W(10) ,AL$(2) ,MON(40) 

20 DIM CMDS (125), IN (10) ,111(101 ,DXC10) , 
CN(10) ,CH(10),N$(2) . TS(5) , RS (5) . AA5 C2) 
,BB$(2) ,CC$(2) ,DD$(2),EE$(2) ,FFS(2) 

22 DIM GG$(2),HH$(2) , JJ$(2) ,KK$(2) ,MUM 
$(5) ,AM$(2),CL$(15),RA$(10) , GES (7) ,GE( 
10), HE f 10, 2), WE CIO), ATT CIO) ,ATT1C10) 

23 AM$r"AM" : T (1) =0 : T C2) =0 : AZS="D : " 

24 DIM GA$(12) ,GB$(12),GC$C12) ,GD$(12) 
, GL$(12) , GFS(12),GH$(12) , GI$ (12) , GJ$ (1 
2) ,GK$(12) ,MTC20,16) 

25 FOR E=l TO 18:F0R X = 20 TO 1 STEP -1 
:REOD N:CT(X,E)=N:NEXT X : NEXT E:AC1=AC 
+ 9 

26 FOR E=l TO 16: FOR X=20 TO 1 STEP -1 
:READ N:MTCK,E)=N:HEXT XlNEXT E 

38 DATA 10,11,12,13,14,15,16,17,18,19, 

20,20,28,20,20,20,21,22,23,24,10,11,12 

,13,14,15,16,17,18,19,20,20,20,20,20 

35 DATA 20,21,22,23,24,8,9,10,11,12,13 

,14,15,16,17,18,19,20,20,20,20,20,20,2 

1,22,8,9,10,11,12,13,14,15,16,17,18 

40 DATA 19,20,20,20,20,20,20,21,22,6,7 

,8,9,10,11,12,13,14,15,16,17,18,19,20, 

28,28,20,20,20,6,7,8,9,10,11,12,13,14 

45 DATA 15,16,17,18,19,20,20,20,20,20, 

20,4,5,6,7,8,9,10,11.12,13,14,15,16,17 

,18,19,20,20,28,20,4,5,6,7,8,9,10,11 

58 DATA 12,13,14,15,16,17,18,19,20,28, 

28,28,2,3,4,5,6,7,8,9,10,11,12,13,14,1 

S.16,17,18,18,20,20,2,3,4,5,6,7,8,9 

55 DATA 10,11,12,13,14,15,16,17,18,19, 

28,20,0,1,2,3,4,5,6,7,8,9,10,11,12,13, 

14,15,16,17,18,19,0,1,2,3,4,5,6,7,8 

60 DATA 9,10,11,12,13,14,15,16,17,18,1 

9,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,1 

3, 14, 15, 16, 17, -2, -1,0, 1,2, 3, 4, 5, 6, 7 

65 DATA 8,9,10,11,12,13,14,15,16,17,-4 
,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,15,-4,-3,-2,-1,0,1,2,3,4,5,6,7 

66 DATA 8,9,10,11,12,13,14,15,-6,-5,-4 
,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,18,11,12 
,13,-6,-5,-4,-3,-2,1,0,1,2,3,4,5,6 

67 DATA 7,8,9,10,11.12,13,10,11,12,13, 
14,15,16,17,18,19,20,28,28,20,20,20,21 
,22,23,24,9,10,11,12,13,14,15, 16,17 

68 DATA 18,19,20,20,28,28,20,20,21,22, 
23, 8, 9, 10, 11, 12, 13. 14, 15, 16, 17, 18, 19, 2 
8,28,20,20,28,28,21,22,7,8,9,18,11,12 

69 DATA 13,14.15,16,17,18,19,28,28,28, 
20, 28, 28, 21, 6^7, 8, 9, 18. 11, 12, 13, 14, 15, 
16,17,18,19,20,28,20,20,28,20 

70 DATA 5,6,7,8,9,10,11,12,13,14,15,16 
,17, 18,19,20,20,28,20.20,3,4,5,6,7,8,9 
,10,11,12,13,14,15,16,17,18,19,20,20 

71 DATA 20,3,4,5,6,7,8,9,10,11,12,13,1 
4,15,16,17,18,19,20,20,20,3,4,5,6,7.8, 
9,10,11,12,13,14,15,16,17,18,19,20,20 

72 DATA 20,2,3,4,5,6,7,8,9,10,11,12,13 
,14,15,16,17,18,19,28,20,0,1,2,3,4,5,6 
,7,8,9,10,11,12,13,14,15,16,17,18,19 

73 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,1 
3,14,15,16,17,18,19,-1,0.1,2,3,4,5,6,7 
,8,9,18,11,12,13,14, 15,16,17,18 

74 DATA -1,8,1,2,3,4,5,6,7,8,9,10,11,1 
2,13,14,15,16,17,18,-2,-1,0,1,2,3,4,5, 
6,7,8,9,10,11,12,13,14,15,16,17 

75 DATA -3,-2,-1,0,1,2,3,4,5,6,7,8,9,1 
0,11,12,13,14,15,16 

80 A1=1:A8=A1~A1:A2=A1+A1:A3=A2+A1 : A4= 
A3+A1:A5=A3+A2:A6=A5+A1 : A7=A5+A2 : A8=A4 
+O4:A9=A5+A4:A10=A5+A5:A11=A6+A5 

85 A12=A2*A6 : A13=A6+A7 : A14=A2#A7 : A15=A 
3*A5:A16=A2*A8:A17=A9+A8:A18=A3*A6:A19 
=A10+A9:A2O=A1O*A2:GRAPHICS O 

86 POKE 82,2 

89 TRAP 89:P0KE 71 2 , 128 : POKE 710,128:P 
OKE 752, Al:' "Pi": POSITION 11.12.:? "*H0 
M MANY PLAYERS"; :INPUT HUM: NUM=NUM-A1 



95 IF NUM>=AO THEN IF NUM<A10 THEN 900 



98 GOTO 89 

108 CMD$=5TR$CP) : CMD$ (1 , 1)=CHR$ (ASC (CM 

D$ (1,1)) +128) 

105 RETURN 

110 IF J=34 THEN 6200 

112 RETURN 

150 ? "«««SFOR P = AO TO NUM:? :POKE 710, 
50:P0KE 709,60:P0KE 712,50:G0SUB 1O0 

151 IF HP(P)<=A8 THEN IF HP(P)>~A10 TH 
EN ? "ai3k"SJI";CMD$;" 15 UNCONSCIOUS'": 
? :G0T0 310 

152 IF HPCPX-A9 THEN ? "QQEQOI" ; CMDS 
;" HAS BEEN KILLED.":? :GOTO 310 

153 ? ,," 31 - PASS":? ,," 32 = 
RETURN":? ,," 33 - SPELL":? ,," 

34 = MONSTER" 

154 IF W(P)=5 THEN FOR CM D-1 TO 5BCP) 

155 TROP 2OG0O:? "SI3SaHi"; CMDS : " ' S OP 
PONENT"; :INPUT J : TRAP 4OO0O : 0=A0 : IF J- 
31 THEN 310 

156 G05UB 110:IF J=32 THEN 9000 

157 IF J=33 THEN ? "HOW MANY HP DAMAGE 
";:INPUT X:? "AGAINST WHICH MONSTER";: 
INPUT E:M0N(E+4)=M0NCE+4)-K:G0T0 159 

158 GOTO 161 

159 ? :? "TO REPEAT EHH1, PRESS ■ S ' " : 
J=E:OPEN ttl,4,8,"K:":GET ttl,K:CLOSE tti 
:IF X=83 THEN ? :J=33:G0T0 157 

160 GOTO 310 

161 AC=M0N(3):IF AC<=A10 THEN IF AC>-- 
A9 THEN 0=A5 

162 IF J<0 OR J>M0N(1)~1 THEN ? "O - " 
;MON(l)-l:". TRY AGAIN.":? :GOTO 154 

164 IF 0<>A5 THEN ? "ETRY AGAIN.":? :F 
OR I=A1 TO 50O:NEXT I:? "«" : GOTO 154 

165 IF W(P)=AO THEN ? "PLAYER ";P;" DO 
ESN'T HAUE A WEAPON READY":? "WEAPON"; 
:INPUT W:IF W<AO OR W>A5 THEN 165 

166 IF W(P)=0 THEN WCP)=W:GOTO 310 
208 IF C(P)=A1 OR C(P)=A2 OR C(P)=A3 T 
HEN AC1=AC+10:H=CT(AC1,LCP)) :GOTO 300 

205 IF C(P)=A7 OR C(P)=A8 THEN 219 

206 IF C(P)=A9 OR C(P)=A10 THEN 229 

210 IF L(P)=A3 OR L CP) =A4 OR L(P)=A5 T 
HEN D=-l 

211 IF L(P)=A6 OR L(P)=A7 OR L(P)=A8 T 
HEN D=-A2 

212 IF L(P)=A9 OR L(P)=A10 OR L(P)=11 
THEN D=-A3 

213 IF L(P)i:12 OR L(P)=13 OR L(P)=14 T 
HEN D=-A4 

214 IF L(P)=15 OR L(P)=16 OR L(P)=17 T 
HEN Dr A5 

215 IF LCP)=18 THEN D=-A6 

216 AC1=AC+10:D1=LCP)+D:H=CT(AC1,D1) :G 
OTO 300 

219 IF L(P)<A3 THEN D=A0 

220 IF L(P)=A3 OR L(P)=A4 OR L(P)=A5 
R L(P)=A6 THEN D=-A2 

221 IF L(P)=A7 OR L (P) =A8 OR L(P)=A9 
R L(P)=A10 THEN D = ~A4 

222 IF L(P)=11 OR L(P)=12 OR L(P)=13 
R L(P)=14 THEN D=-A6 

223 IF L(P)=15 OR L(P)=16 OR L(P)=17 
R L(P)=18 THEN D = -A8 

224 D1=L(P)+D:AC1=AC+A10:H=CT(AC1,D1) : 
FOR E=A1 TO A8:IF D1=E THEN H=H+A1 

225 NEXT E:GOTO 308 

229 IF L(P)<A3 THEN D=AO 

230 IF LCP)=A3 THEN D=-A1 

231 IF L(P)=fl4 OR L CP) =A5 OR LCP)=A6 
R LCP)=A7 THEN D=-A3 

232 IF LCP)=A8 OR LCP)=A9 THEN D=~A4 

233 IF LCP)=A10 OR L (P) =11 OR L(P)=12 
THEN D=-A6 

234 IF L(P)=13 OR L(P)=14 THEN D=A8 

235 IF L(P)=15 OR L(P)-16 OR L(P)=17 T 
HEN D=-A9 

236 IF L(P)=18 THEN D=-A18 

237 D1=LCP)+D;AC1=AC+A10:H=CT(AC1,D1) : 
FOR E=A1 TO AIOIIF D1=E THEN H=H+A1 

238 NEXT E:FOR E=16 TO 18:IF D1=E THEN 
H=H+A1 

239 NEXT E 
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388 SWING=INT C28*RND CAD + A1J +HMCP) : IF 
WCPJ=5 THEN SWING=SWIHG-HMCP) :SWING=SW 
ING+RACP) 

381 ? "H=";H:? "SWINGS"; SWING 

382 IF SWING>=H THEN DAM=INT (WD (P, W(P) 
J*RNDCA1J+A1J+DMCPJ :IF WCPJ=5 THEN DAM 
=DAM-DMCPJ 

385 IF SWING) =H THEN ? "A HIT!":? "DAM 
AGE=";DAM;" HIT POINTS" 

386 IF SHING>=H THEN MON <J+4) =MON (J+4) 
-DAM:IF MON(J+4)<=8 THEN ? "YOU'VE KIL 
LED IT! !•■ 

387 IF WCP)=5 THEN NEXT CMD 

388 IF ATT11P)=8 THEN 558 
385 IF ATT1CPJ>8 THEN 588 
318 NEXT P:TtA2JrT(A23+Al 

312 ? :? "PRESS ANY KEY TO CONTINUE":0 
PEN ttl,4,8, ,, K:":GET ttl,E:CLOSE ttl:IF E 
>=fl THEN 6288 
588 IF ATTCP)=2 THEN ATT1 (PJ =8 : GOTO 15 



2 THEN ATTlfP5=8:GOTO 1 

3 THEN ATT1(P)=2:G070 3 



583 IF ATT1CPJ: 

51 

585 IF ATT1CPJ: 

18 

558 ATT1(PJ=ATTCPJ :GOTO 318 

1888 ON P+Al GOTO 1085,1818,1015,1828, 

1825,1838,1835,1848,1845,1850 

1885 INPUT GAS:RETURN 

1818 INPUT GB$:RETURN 

1815 INPUT GCS: RETURN 

1828 INPUT GD$:RETURN 

1825 INPUT GL$:RETURN 

1838 INPUT GF$:RETURN 

1835 INPUT GHSlRETURN 

1848 INPUT GI$:RETURN 

1845 INPUT GJ$:RETURN 

1858 INPUT GK$:RETURN 

2800 ON P+l GOTO 2005,2810,2815,2828,2 

025,2838,2835,2848,2845,2858 

2085 ? "tm ";GA$:RETURN 

2818 ? "tm ";GB$:RETURN 

2015 ? "tm ";GC$:RETURN 

2820 ? "t>H ";GDS:RETURH 

2025 ? "*►►► ";GLS:RETURN 

2830 ? «»*►>»• ";GFS:RETURH 

2035 ? "t>H "jGHS:RETURH 

2848 ? "tm ";GI$:RETURN 

2045 ? "tm ";GJS:RETURN 

2050 ? "tm ";GK$:RETURN 

3900 ? "S":P05ITIGN 8,11:? "Q 5HOI 
HGBEB": POSITION 8.12:? " ARE YOU SUR 
E?":OPEN ttl,4,8,"K:":GET ttl,J:CLOSE ttl 
3001 IF J = 89 THEN TRAP 3004:G0T0 3004 

3882 IF J = 78 THEN 9008 

3883 GOTO 3080 

3884 T$rCHR$C155) !? "*":POSITION A8,ll 
:? "QMHAT IS THE NAME OF THE" : POSITION 

8,12:? "DATA FILE";:INPUT CMDS 
3805 TRAP 3884:AZS="D:":AZ$C3,3+LEN(CM 
DSj)=CMDS 

3887 OPEN ttl,8,8,AZS:F0R J=A1 TO 128 : P 
UT ttl,0:NEXT J 

3810 FOR E=A8 TO HUMlPRINT »1;ACIEJ;TS 
;C(EJ ;T$;HP(E};T$;HMCE) ; T$; DMCE5 ; T$;RA 

3012 PRINT ttl;ACA<E) :TS;SB(EJ ;TS;L(E) ; 
T5;ST(E3;T$;INCE) ;T$;WICEJ ;TS;DXtEJ 
3015 PRINT ttl;W(E3 :TS;GP(EJ :TS;5PtE) ;T 
$;CP(EJ ;TS;PPCE);TS;EPCEJ ;TS;CNCE) 

3816 PRINT ttl:CHtE3;TS:ATT(E3;T5;WE(E3 
;TS;HE(E,03 ;T$;HECE.1J ;TS;GE(E) :NEXT E 

3817 PRINT ttl:AA$;TS:BB$;T$;CCS;TS;DDS 
;TS;EES;TS;FFS;TS;GG$ 

3818 PRINT ttl:HH$;TS;JJ$;T$;KKS:T$:AS; 
TS;BS;TS;CS;TS;DS;T$;eS;T5;FS;T$;G$ 
3828 PRINT ttl ; HS; TS ; JS; TS; K$; TS; 7. ; TS ; M 
;TS;TC1) 

3821 PRINT »1;T(2J ."PRINT »1;AMS;TS;Y 

3022 FOR J=A1 TO A5:F0R E = AO TO NUM:PR 

INT ttl;WDCE,JJ :NEXT E:NEXT J 

3025 PRINT 81:GA$;TS:GBS;TS:GCS;TS:GD$ 

;TS:GL$;TS;GFS;TS;GHS;TS;GIS;T$;GJS;TS 

JI GKS 

3O30 CLOSE ttl:END 

3508 ? "H":POSITION 8,11:? "Q 3MM 

[23QGH": POSITION 8,12:? " ARE YOU SUR 

E?":OPEN ttl,4,8,"K:":GET ttl,J;CL05E ttl 



3501 IF J=89 THEN 3585 

3582 IF J=78 THEN 3000 

3583 GOTO 3508 

3505 CLOSE tt3:TRAP 3O000 : ? "*":P05ITI0 
N A8.ll:? "WHAT IS THE NAME OF THE":PO 
5ITI0N A8,12:? "DATA FILE"; : INPUT CMOS 
3586 AZS="D:":AZ$(3,3+LENICMDSJJ=CMDS: 
XIO 3,tt3,4,8,AZ$:F0R J = A1 TO 128:GET tt 
3 R : NEXT J 

3507 FOR E=AO TO NUM:INPUT tt3,J:AC(EJ= 
J.INPUT tt3,J:CCE)=J:INPUT 83, J : HP (E)=J 
:INPUT t»3,J:HM(E)=J:INPUT 83, J : DM(EJ=J 

3508 INPUT »3, J:RACEJ=J:INPUT »3,J:ACA 
CE1=J:INPUT 83, J: SB CE J:: J: INPUT tt3,J:L< 
EJ=J:INPUT tt3,J:STCE)=J 

3509 INPUT 83,J:INtE)=J:INPUT »3,J:WI( 
E)rJ:INPUT tt3,J:DXCE)=J:INPUT «3,J:WtE 
)=J: INPUT tt3,J:GPCE)=J 

3511 INPUT 83, J:5P(E)=J:INPUT «3,J:CP( 
EJ=J:INPUT 83, J:PP<EJ=J:INPUT «3,J:EP( 
EJ=J:INPUT tt3,J:CNCEJ=J 

3512 INPUT tt3, J:CH(EJ=J:INPUT 83,J:ATT 
CE3=J:INPUT tt3,J:WE(EJ=J:INPUT 83,J:HE 
CE,8J=J: INPUT tt3, J:HECE,1)--J 

3514 INPUT 83,J:GE(EJ=J:NEXT E 

3516 INPUT 83;AA$, BBS, CCS, DDS,EES,FFS, 
GGS,HH$,JJ$,KKS,A5,BS,C$,D$,E$,f1,GS,H 
S,JS,KS,Z,M,T:Tfl3zT 

3517 INPUT t»3;K:TC21=K: INPUT 83;AMS,Y 
3528 FOR J-l TO 5:F0R E=0 TO NUM:INPUT 

tt3;WD:WD(E, J)=WD:NEXT E:NEXT J 
3522 INPUT 83;GAS,GB$,GCS,GDS,GLS,GFS, 
GHS,GIS,GJS,GKS 

3525 CLOSE 83:F0R E=8 TO NUM: ATT1 <E) =A 
TTCEJlNEXT E:GOTO 9080 

4888 ? "HA PLAYER NUMBER"," L GENDER": 
? "B PLAYER NAME'V'M HEIGHT":? "C CLAS 
<)■■ ii ii s\ff |«|EIGHT" 

4810 ?'"D ALIGNMENT", "0 LEOEL":? "E ST 

RENGTH","P ARMOR CLASS":? "F INTELLIGE 

NCE","0 HIT MODIFIER" 

4O20 ? "G WISDOM"," ","R DAM MODIFIER" 

:? "H DEXTERITY", "S AC ADJUSTMENT":? " 

I CONSTITUTION","! R/A BONUS" 

4030 ? "J CHARISMA'V'U ATTACKS/ROUND": 

? "K RACE"," ","g WEAPON":? " ",,"W MO 

NTH" 

4035 ? ,,"X YEAR":? "4Y RETURN TO MENU 

II 

41O0 POSITION 3,17:? "HEADING?" :OPEN tt 
3,4.8,"K:":GET tt3,J:CL0SE tt3:IF J<65 
R J>89 THEN 4100 

4105 POSITION 22,18 

4106 ON J-64 GOTO 4110,4115,4128,4125, 
4138,4135,4148,4145,4158,4155,4168,416 
5,4178,4175,4180,4185,4190,4195,4200 

4107 ON J-83 GOTO 4205,4210,4215,4285, 
4290,4295 

4108 GOTO 4000 

4110 ? "tPLAYER NUMBER"; : INPUT P 

4112 IF P<AO OR P>A9 THEN ? "t8 TO 9, 
PLEASE - TRY AGAIN":FOR E=A1 TO A58 : NE 
XT E:? "t"!? :GOTO 4110 

4113 IF P>NUM THEN NUM=P 

4114 GOTO 40OO 

4115 ? "tPLAYER NAME";:ON P+Al GOSUB 6 
000,6005,6010,6015,6828,6825,6838,6035 
,6040,6845:G0T0 4800 

4128 ? "tCLASS"; ! GOSUB 5508:G0T0 4808 

4125 ? "tALIGNMENT"; : INPUT ALS:GOSUB 5 

009: GOTO 4088 

4138 ? "^STRENGTH"; : INPUT E:STtPJ=E:G0 

TO 4888 

4135 ? "tINTELLIGENCE"; IINPUT E:IN(P3= 

E:GOTO 4088 

4148 ? "tWISDOM"; : INPUT E : WI tPJ =E : GOTO 

40OO 
4145 ? "tDEXTERITY"; :INPUT E:DX(PJ=E:G 
OTO 4880 

4150 ? "^CONSTITUTION"; : INPUT E:CNCPJ= 
E:GOTO 4O0O 

4155 ? "tCHARISMA"; : INPUT E : CH IP) rE : GO 
TO 40O0 

4168 ? "tRACE"; : GOSUB 10OO:GOTO 4888 
4165 ? "tGENDER"; :INPUT GES:IF GES="M" 

OR GES="MALE" THEN GEtPJ=l:GOTO 40G0 
4167 IF GES="F" OR GES="FEMALE" THEN G 
ECPJ=2:G0T0 40OO 
4178 ? "^HEIGHT CFEET3 ■';: INPUT J:HECP, 
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0)=J: POSITION 29,19:? "tfINCHES3"; :INP 

UT J:HECP,13=J:GOTO 400O 

4175 ? "+WEIGHT"; '.INPUT J : WE CP3 = J : GOTO 



"UEVEL"; : INPUT E : L CP3 =E : GOTO 4 



4606 
4186 ? 
866 

4185 ? "tARMOR CLASS"; : INPUT E:ACCP3=E 
:GOTO 4660 

4196 ? "tHIT MODIFIER"; : INPUT E:HMCP3= 
E:GOTO 4660 

4195 ? "tDAMAGE MODIFIER"; : INPUT E:DMC 
P3=E:G0T0 4666 

4206 ? "tAC ADJUSTMENT"; : INPUT E:ACACP 
)=E:GOTO 4660 

4265 ? "tR/A BONUS"; :INPUT E:RA(P3=E:G 
OTO 4606 

4210 ? "tATTACKS/TURN"; ! INPUT E : ATT <P3 
=E:GOTO 4066 

4215 ? "tWEAPON DAMAGE":? "^M+WEAPON tt 
1";:INPUT E:WDfP,A13=E:? "^WEAPON «2" 
; :INPUT E:WD(P,A23=E 

4270 ? "++WEAPON tt3";:IHPUT E:WD(P,A33 
=E:' " WEAPON tt4"; : INPUT E : WD CP, A43=E 
4286 ? " WEAPON tt5";:INPUT E:WDtP,A53 
=E:? "NUMBER OF HITS PER ROUND"; : INPUT 

E:SBtP3=E:G0T0 4668 
4285 ? "tMONTH"; :INPUT M:GOTO 4068 
4296 ? "tYEAR"; : INPUT V:GOTO 4668 
4295 G0T6 9686 
5860 IF P=A6 THEN AA$=AL$ 
5662 IF P=A1 THEN BB$=AL$ 
5664 IF P-A2 THEN CC$=ALS 
5806 IF P = A3 THEN DD$=ALS 
5008 IF P=A4 THEN EE$=AL$ 
5O10 IF PrA5 THEN FF$=AL$ 
5012 IF P=A6 THEN GG$=AL$ 
5814 IF P=A7 THEN HHS=AL$ 
5816 IF P = A8 THEN JJ$=AL$ 
5018 IF P=A9 THEN KK$=AL$ 
5O20 RETURN 

5508 INPUT CL$:IF CL$:="FIGHTER" OR CLS 
-"?" THEN CCP3=A1 

5505 IF CL$ = "RANGER" OR Cl.S = "R" THEN C 
(P3=A2 

5510 IF CL$="PALADIN" OR CL$="P" THEN 
CCP3=A3 

5515 IF CLS^'CLERIC" OR CL$="C" THEN C 
CP3=A4 

5528 IF CL$="DRUID" OR CL$="D" THEN C< 
P3=A5 

5525 IF CL$="mNK" OR CL$="M" THEN C CP 
3=A6 

5530 IF CLS="THIEF" OR CL$="T" THEN C( 
P3=A7 
5548 IF CL$="ASSASSIH" 8R CL$="A" THEN 

C<P)=A8 
5545 IF CL$="MAGIC-USER M OR CL$="MU" 
R CL$="MAGIC USER" THEN C CP3 = A9 
5558 IF CL$="1LLUSI0NIST" OR CLS="I" T 
HEN CfP)=A18 
5555 RETURN 
6688 INPUT A$: RETURN 
6805 INPUT BS: RETURN 
6816 INPUT C$:RETURN 
6615 INPUT DS:RETURN 
6O20 INPUT ES: RETURN 
6825 INPUT FS: RETURN 
6630 INPUT GS: RETURN 
6835 INPUT H$:RETURN 
6640 INPUT JS: RETURN 
6645 INPUT KS: RETURN 

6288 ? "H": POSITION 12,12:? "MONSTER C 
OMBAT?":OPEN ttl , 4 , 0, "K : " : GET ttl,J:CLOS 
E ttl: IF J = 78 THEN 9088 
6281 IF J=89 THEN 6218 
6263 GOTO 6288 
6218 FOR E = TO MOHt H-1 

j<=8 then ? "ESEHOE-'JE:' 

LED":? :? :GOT0 6966 

6212 FOR K=l TO M0NC353;? " BCTSBQEB ";E 
;"'S OPPONENT": OPEN tt3, 4 , 6, "K : " : GET tt3 
,J:CI.OSE tt3:IF J=86 THEN 6980 
6215 IF J = 82 THEN 9666 
6218 IF J<48 OR J>57 THEN 6212 
6228 IF UAL(CHR$(J3 3>NUM THEN 6212 
6225 P^VAL f CHRS < J3 3 : SWING = INT C26*RND {A 
13+A13 :H=MTCAC(P)+18,M0NC2JJ 



> :IF MONCE+4 
HAS BEEN KIL 



6227 IF SWING>=H THEN ? "A HIT'!":DAM= 

INT(MON(363*RNDCA13+A13 :? "DAMAGE = "; 

DAM;" HP":? :? 

6230 IF SWING<H THEN ? "A MISS!":? :? 

:G0T0 6895 

6235 HP(P)=HPCP)-DAM:DAM=6 

6895 NEXT X 

6988 NEXT E:? :? "PRESS ANY KEY TO CON 

TINUE":OPEN ttl,4,8,"K:":GET ttl,E:CLOSE 

ttl : IF E>=6 THEN 9088 
6965 TRAP 38886:? "«•« : POSITION 2,12:? 
"WHAT IS THE ROOM NUMBER"; : INPUT CMD$ 
6910 CLOSE ttl :AZ$="D: COMBAT. ":AZ$ CIO, 1 
6+LEN(CMD5) 3=CMD$:XI0 3,ttl,4,0,AZS 
6915 FOR E=l TO 48:INPUT ttl , J : MON CE3 =J 
:NEXT ElCLOSE ttl:GOTO 9800 
7080 F=INT C10O*RND CA13 J +A1 : E = INT C30WRN 
DCA133+A1 

7862 ON M GOTO 7683,7883,7884,7804,700 
4,7005,7805,7665,7865,7864,7864,7663 
7883 X=INTC25*RNDfA13 3 :GOTO 7688 

7664 X=INT£25*RND(A13+253 :GOTO 7688 

7665 X=INT<33*RNDCA13+603 :GOTO 7008 
7668 DL=PEEKC5663+256*PEEK(5613 :B=PEEK 
CDL+A43 :C=PEEKCDL+A5J :POKE 559,A6:P0KE 

DL+A4,B:P0KE DL+A5,C:P0KE DL+A3,66 
7609 POKE DL+A6,A6'.P0KE DL+A7 , A6 : POKE 
DL+13,A6:P0KE DL + 14, A6 : POKE DL+15,A6:P 
OKE DL+16,A6:P6KE DL+29,65 
7816 POKE DL+30,PEEKC5683 : POKE DL+31,P 
EEK(5613 :POKE 559,34:P0KE 716,128:P0KE 

712,128:? "«* DUNGEON STATUS":? 

7611 IF D=A3 THEN D=A8:G6T6 7815 

7612 IF X<38 THEN IF F<=66 THEN IF A>= 
166 THEN ? "tWEATHER: SNOW " : D=D 
+1IG0T0 7825 

7013 IF X>=38 THEN IF X<=34 THEN IF F< 
=66 THEN IF A>=100 THEN ? "tWEATHER: 
SLEET ":D=D+1:G0T0 7025 

7014 IF F<=66 THEN IF A>=100 THEN ? "+ 
WEATHER: RAIN " : D=D+1 : GOTO 7625 

7015 IF F>30 THEN ? "WEATHER: FAIR": 
D=0:A=0:G6T6 7625 

7026 IF F<=38 THEN ? "WEATHER: CLOUDY" 
:LET A=A+186 

? "WIND: ,, iEj ,, MPH" 

? "TEMPERATURE: ";X 

? "4+ DUNGEON TIME" 

? "4YEAR : ";Y:? "MONTH 



7825 
7646 
7856 
7853 
AY : 
23 ;" " 



";M: 



D 



? "TIME : ";TtA13 ;":";TCA 



";Z:? 

;AM$ 

7166 J=A8:0PEN ttl , 4 , 6, "K : " : GET ttl , J : CL 
OSE ttl: IF CHR$<J3="R" THEN 9686 
7185 IF J=49 THEN 7115 

7112 IF J=56 THEN T I A13 =T (A13 +A1 : GOTO 
7128 

7113 IF J=51 THEN Z=Z+A1:G0T0 7128 

7114 GOTO 7180 

7115 T (A23 =T (A23 +UAL CCHR$ t J3 3*A16 
7128 IF TIA23>=66 THEN T CA23 =T CA23 -68 : 
TCA13=TCA13+A1 

7125 IF TtA13=ll THEN T(A33=A3 

7138 IF TtA13=12 THEN IF TCA33=A3 THEN 

IF AM$="AM" THEN AMS="PM" : T CA33 =A8 : GO 
TO 7145 

7135 IF TCA13=A12 THEN IF TCA33=A3 THE 
N IF AM$r"PM" THEN AMS="AM" : Z=Z+A1 : T CA 
33=A8 

7145 IF TIA1J=13 THEN TCA13=A1 
7158 IF Z=31 THEN Z=A1:M=M+A1 
7155 IF M=13 THEN M=A1:Y=Y+A1 
7175 GOTO 7688 

7560 AZ$="D:WITCHES.":? "UROOM NUMBER" 
; :INPUT CMDS:AZ5Cll,ll + LENtCMDS33=CMDS 
IPOKE 716,266:P0KE 789,194:P0KE 712,8 
7565 TRAP 3880e:CLOSE ttl -.OPEN ttl, 4, 6, A 
Z$:? "H" 
7516 TRAP 7666 
7526 INPUT ttl,CMD$ 
7530 ? CMOS 
7535 IF PEEKC843=23 THEN POSITION 1,23 

t 



THERE'S M0RE--PRES5 ANY KEY WHEN R 



igtft.GOTO 7538 
7536 GOTO 7548 

7538 OPEN tt4,4,8,"K:":GET tt4,J:CL0SE U 
4:IF J>=6 THEN ? "*" 
7546 GOTO 7520 
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7680 CLOSE ttl:0PEN tt2, 4, 8, "K : " : GET tt2, 

JiCLOSE »2:IF J>=8 THEN 9888 

8858 DL=PEEK 1560) +256*PEEK (561) :B=PEEK 

(DL+4) :C=PEEK(DL+5) :P0KE 559,8:P0KE DL 

+4,B:P0KE DL+5,C:P0KE DL+3,66 

8855 POKE DL+12,7:P0KE DL+13,7:P0KE DL 

+14,7:P0KE DL+15,7:P0KE DL+23, 65 : POKE 

DL+24,PEEK(568) :P0KE DL+25, PEEK (561) 

8868 POKE 559,34:P0KE 87,8:P0KE 718,19 

2:P0KE 712,132 

8865 TRAP 9808:? "«" ;P05ITI0H 2,8:? "R 

ANDOM NUMBER"; : INPUT RN 

8870 ? ■■«■• :P05ITI0N 2, 8 : E=INT (RN*RND (8 

J+l) :? "NUMBER = ";E 

8875 FOR E = l TO 158: NEXT E-.GOTO 8865 

8580 POKE 710,208:P0KE 709,192:POKE 71 

2,0 

8520 AZS="D:WITCHE5.":? "«":? "WHAT IS 

THE ROOM NUMBER"; :INPUT CMOS 
8530 AZS (11, 11+LEN (CMDS) )=CMDS: OPEN ttl 
,8,0,AZ$ 
8540 ? "H" 
8550 INPUT CMDS 
8560 IF CMDS="#" THEN 8590 
8570 ? ttl;CMO$ 
8580 GOTO 8558 
8590 CLOSE ttl: GOTO 9880 

9888 TRAP 28808 : GRAPHICS 8 : POKE 712,12 
8:P0KE 710,128:POKE 789,148:P0KE 752,1 
9881 ? "«":POSITION 8,5:? "MM = MELEE 
":? "Ml = CHARACTER SHEET":? "►S = DUN 
GEON STATUS":? ">E - ENTER ROOM" 

9082 ? " >D = DICE":? ">F - FILE DATA": 
? "►G = GET DATA":? "H = INITIALIZATI 
ON":? "►L = LOAD ROOM" 

9083 ? " >Z = ROOMS":? "►W = WRITE" 
9884 ? "►♦♦COMMAND?"; 

9887 CLOSE ttl: TRAP 208O8:OPEN ttl, 4,0," 
K:":GET ttl, CMD: CLOSE ttl: IF CMD=69 THEN 

6905 

9888 IF CMD=83 THEN 7888 

9889 IF CMD=68 THEN 8858 
9818 IF CMD=71 THEN 3588 
9812 IF CMD=77 THEN 150 

9013 IF CMD=73 THEN 4000 

9014 IF CMD=70 THEN 3808 
9815 IF CMD=76 THEN 15888 
9016 IF CMD=90 THEN 7580 

9817 IF CMD=87 THEN 8588 

9818 IF CMD<48 OR CMD>57 THEN 9888 

9819 P=VAL(CHRS(CMD)) SGOSUB 100 

9505 POKE 712,P*16+10jPOKE710,P*16*18 
:POKE 789,P#16:? "H++G0CH1IB";CMDS;" 

II • 

9506 ON P+l GOTO 9600,9601,9602,9683,9 
684,9605,9686,9607,9688,9609 

9510 ON CCP) GOTO 9610,9611,9612,9613, 
9614,9615,9616,3617,9618,9613 

9511 ON P+l GOTO 9800,3882,3804,3886,3 
888,9819.3812,3814,3816,3818 

3512 ? "+ARMOR CLASS ";AC(P):? " 

♦►►►►ST ";ST(P) 

3514 ? "HIT POINTS ";HP(P):? "+ 

►►►►IN ";IN(P) 

3516 ? "HIT MODIFIER ";HMCP):? "* 

►►►►WI ";WI(P) 

3518 ? "DAMAGE MODIFIER ";DM(P):? "t 

►►►►DX ";DX(P) 

3520 ? "R/A BONUS ";RAtPJ:? "t 

► ► ► ► CN " ' CN (PI 

9522 ? "AC ADJUSTMENT ";ACA(P):? " 
tM^CH ";CH(P) 

9524 ? "MISSILE MULTIPLE *';5B(P) 

9526 ? "LEVEL " ; L (P) : ? "t ► 

► > HT ";HE(P,0);"'";" ";HE (P, 11 ;CHR 
5(34) 

9528 ? "WEAPON READY ";M(P):? "t ► 

► ► WT ";WE(P);" LBS" 

9530 ? "+GOLD ";GP(P) 

9533 ? "SILVER ";SP(P):IF G 
E(P)=i THEN ? "+►►► MALE":GOTO 9535 

9534 IF GE(P)=2 THEN ? "t ► M FEMALE 



9599 GOTO 9700 

9600 ? AS:GOTO 9510 
BSlGOTO 9510 
CS:GOTO 3510 
D$:GOTO 3510 
ES:GOTO 3510 
FSlGOTO 3510 
G$:GOTO 3510 
HS:GOTO 3510 
J$:GOTO 3510 
K$:GOTO 3510 
"►►►♦FIGHTER": GOTO 3511 
" ►► GRANGER": GOTO 3511 
"►►►tPALADIN":GOTO 9511 
" ►►►+CLERIC":GOTO 9511 
" ►►►tDRUID" :GOTO 9511 
"►►►+MONK":GOTO 9511 
"►►►♦THIEF" :GOTO 9511 
"►►►+ASSA5SIN":G0T0 9511 
"►►►*MAGIC-USER":GOTO 9511 
"►►►+ILLU5I0NIST":G0T0 9511 

9788 POSITION 3,22:? "COMMAND?"; : OPEN 
ttl,4,0,"K:":GET ttl,K:CLOSE ttl 
9782 IF X = 77 THEN 150 

9704 IF X=82 THEN 90OO 

9705 IF X=71 THEN 10OOO 

9706 IF X = 83 THEN 10010 

9707 IF X=67 THEN 10820 

9708 IF X=80 THEN 10030 

9709 IF X=69 THEN 10040 
9718 IF X = 72 THEN 10850 

9711 IF X = 87 THEN 10068 

9712 IF X=90 THEN 7500 

9715 IF X<48 OR X>57 THEN 9780 

9730 P=VAL(CHR$(X)) :GOSUB 180: GOTO 950 

5 



9681 


T> 


9682 


1 


9683 


9 


9604 


1 


9605 


■? 


9606 


9 


9687 


9 


9688 


9 


9689 


t 


9618 


1 


3611 


1 


3612 


9 


3613 


1 


3614 


9 


9615 


9 


9616 


9 


9617 


t 


9618 


1 


9619 


9 



AA$:GOTO 9512 
BB$:GOTO 9512 
CCS .GOTO 9512 
DD$:GOTO 9512 
EES:GOTO 9512 
FFS:GOTO 9512 
GGS:GOTO 9512 
HHSlGOTO 9512 
JJS:GOTO 9512 
KK$:GOTO 9512 

INPUT J:GPCP) 



INPUT J:SP( 



3535 ? "COPPER 
B 2008 

9537 ? "PLATINUM 
9540 ? "ELECTRUM 



";CP(P) :GOSU 

";PP(P) 
";EPCP) 



9800 POSITION 36,2; 

9802 POSITION 36,2 

9884 POSITION 36,2: 

9806 POSITION 36,2: 

9808 POSITION 36,2: 

9818 POSITION 36,2: 

9812 POSITION 36,2: 

9814 POSITION 36,2: 

9816 POSITION 36,2: 

9818 POSITION 36,2: 

18880 ? " GOLD PIECES' 

=J:GOTO 9585 

10018 ? " SILVER PIECES' 

P)=J:GOTO 9585 

18820 ? " COPPER PIECES"; : INPUT J:CP( 

P)=J:GOTO 9505 

18838 ? " PLATINUM PIECES"; : INPUT J:P 

P(P)=J:GOTO 9505 

18840 ? " ELECTRUM PIECES"; : INPUT J:E 

P(P)=J:GOTO 9585 

10858 ? " HIT POINTS"; : INPUT J:HP(P)= 

J: GOTO 9505 

10O6O ? " WHICH WEAPON"; : INPUT J:IF J 

<1 OR J>5 THEN POSITION 11,22:? " 

"IPOSITION 11,22:G0T0 18068 
18865 W(P)=J;GOTO 9585 

15808 TRAP 38860:FOR J=l TO 40:M0N(J)= 
0:NEXT J:? "«":? "WHAT IS THE ROOM HUM 
BER"; : INPUT CMDS 

15005 AZS = "D : COMBAT . " : AZS (18, 16 + LEN CCM 
DS))=CMDS 

15818 ? "HOW MANY MONSTERS" ;: INPUT J:I 
F J>39 THEN ? "HO MORE THAN 30 MONSTER 
5":? :GOTO 15018 

15815 MON(l)rJ:? "MONSTER HIT DICE";:I 
NPUT J:M0N(2)=J 

15828 ? "MONSTER ARMOR CLASS" ;: INPUT J 
:M0N(3)=J:F0R E=0 TO MONCD-1:? "M0N5T 
ER ";E;'"5 HIT POINTS"; UNPUT J 
15838 M0N(E+4)=J:NEXT E:? "NUMBER OF A 
TTACKS"; IINPUT J : HON (35) =J : ? "DAMAGE P 
ER ATTACK"; :INPUT J:M0N(36)=J 
15848 OPEN ttl,8,0,AZS:F0R E=l TO 48:' 
ttl; MON (E) : NEXT E:CLOSE ttl : GOTO 9880 
28008 ERLN=PEEK(186)+256*PEEK(187) : FOR 
E = l TO 18:? "t INPUT ERROR — TR 
Y AGAIN ":50UND 0,30,18,18 
28081 FOR 1=1 TO 2 

28883 n ext I :? ' ' *!HHWff ^TTTfl ^TTl "M ai 
UH3EEHIOBHB ".-sound o,10,io,io:for 

1=1 TO 2:NEXT IlNEXT E : SOUND 8,9,8,8 
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28004 ? "t 

II 

20005 TRAP 20000: GOTO ERLK 

30000 IF PEEK C195) =170 THEN ? "fl'MPOSI 

TION 2,5:? "THERE'S MO SUCH FILE OH TH 

IS DISK! !" 

38803 ? :? "THE FILES ORE : " : ? 

30805 TRAP 30055: CLOSE ttl:0PEN ttl , 6 , 8 , 

"D:*.K" 

38810 INPUT ttl;CMD5 

30015 PRINT CMD$:G0T0 30010 

30055 CLOSE ttl : ERLH=PEEK C186) +256*PEEK 

(187):F0R E=l TO 200:NEKT E:TRAP 20088 

:G0T0 9880 



CHECKSUM DATA 

(See pgs. 7-10) 



4 DATA 621,406,367,983,822,218,174,155 

,820,885,162,205,155,288,197,6378 

55 DATA 49,185,192,71,986,297,476,477, 

321,471,689,638,873,193,308,6146 

86 DATA 660,496,27,666,904,586,644,586 

,924,660,622,446,679,761,51,8712 

157 DATA 686,725,351,708,148,696,494,9 

14,525,199,289,188,822,713,835,8293 

213 DATA 601,623,295,534,95,149,112,13 

,54,888,828,98,303,164,479,5228 

233 DATA 783,412,642,126,63,759,740,97 

7,741,779,927,936,648,239,236,9008 

310 DATA 380,863,7,184,112,634,235,155 

,148,160,153,179,158,172,165,3625 

1045 DATA 177,170,906,646,640,653,647, 

681,654,678,664,677,671,571,796,9223 

3002 DATA 875,712,894,498,547,553,723, 

238,454,2,653,693,451,435,573,8301 

3030 DATA 340,271,985,890,732,607,162, 

297,639,290,540,49,893,651,885,8151 

3528 DATA 971,107,719,361.468,227,384, 

18,890,687,817,135,730,169,621,7296 

4113 DATA 283,723,705,762,542,855,515, 

676,146,649,710,298,173,460,483,7980 

4175 DATA 666,43,203,429,808,545,943,4 

42,527,329,178,545,203,751,327,6939 

5882 DATA 337,347,357,367,358,368.378, 

393,403,789,898,228,523, J 75, 239, 6i60 

5525 DATA 122,296,688,725,993,817,918, 

929,921,932,924,935,927,938,931,11988 

6045 DATA 942,602,898,735,449,465,891, 

630, 410, 92, 941 , 798, 173, 582, 42 , 8634 

6905 DATA 699,590,349,575,741,889,180, 

186,597,518,567,937,524,105,846,8303 

7815 DATA 902,139,37,213,155,370,42,89 

4,971,585,739,866,79,605,781,7298 

7135 DATA 687,603,622,637,770,864,570, 

711,365,316,487,769,921,754,745,9821 

8058 DATA 758,698,348,126,322,605,806, 

243,590,402,105,928,594,769,838,8132 

9086 DATA 211,948,827,394,569,481,964, 

993,947,764,958,942,221,964,986,11161 

9818 DATA 479,180,832,187,581,222,550, 

578,747,938,486,453,362,565,475,7555 

9538 DATA 484,110,918,798,784,676,785, 

682,687,612,617,622,627,632,637,9431 

9608 DATA 645,650,141,896,80,913,125,7 

11,117,618,562,143,377,669,923,7570 

9785 DATA 739,748,758,753,760.741,753, 

932,709,978,571,588,589,598,687,19808 

9818 DATA 597,606,615,629,638,217,869, 

857,901,888,498,895,39,419,573,9241 

15018 DATA 901,923,590,474,58,278,262, 

196,661,376,576,687,232,728,607,7541 

30O55 DATA 531,531 



Pretty Demo 



10 DEG 

20 GRAPHICS 24 

30 COLOR 1 

40 SETCOLOR 2,0,0 

50 FOR 1=1 TO 360 STEP 5 

60 X=319#I/360 

70 Y=80+8O*SIHCI) 

80 IF I>270 THEN 100 

90 PLOT 0,0 

100 DRAMTO K,Y 

110 IF I<90 THEN 130 

120 DRAMTO 319,159 

130 NEHT I 

140 IF PEEK 1764)0255 THEN END 

150 GOTO 140 



CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 217,4,724,287,58,750,133,493,4 
56,967,434,363,737,152,710,6485 
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THUNDER ISLAND 



32K Cassette or Disk 



by Craig Patchett 



One of the interesting features of the ATARI 
home computer is the priority register. This reserved 
memory location works together with the ATARI'S 
player-missile graphics system to allow screen 
objects to pass behind or in front of other objects, 
an effect that can give the illusion of depth. 

The priority register is called, appropriately, 
PRIOR and is found at memory location 623 ($26F 
hex). The following chart shows the effect of 
POKEing various values into it. Note that a high 
priority object will appear to move in front of an 
object with lower priority. 



PRIOR= 



8 



t 



a 

Mi 



PFO 


PFO 


PO 


PO 


PF1 


PF1 


PI 


PI 


PO 


PF2 


PFO 


P2 


PI 


PF3 or P4 


PF1 


P3 


P2 


PO 


PF2 


PFO 


P3 


PI 


PF3 or P4 


PF1 


Pf2 


P2 


P2 


PF2 


PF3 or P4 


P3 


P3 


PF3 or P4 


BAK 


BAK 


BAK 


BAK 



Pn refers to player n 

PFn refers to playfield n (as in SETCOLOR n) 
PF3 or P4 refers to the fact that all missiles can be 
given the color of playfield 3 and used as an extra 
player (player 4). This is done by adding 16 to the 
value being POKEd into PRIOR. 
When two players overlap, you can also choose to 
have a third color in the overlap region. This is done 
by adding 32 (decimal) to the value being POKEd 
into PRIOR. 



Thunder Island uses the priority register to 
control which section of the maze immediately sur- 
rounding you can be seen at a given time. If you 
draw a maze in playfield one and set the color of play- 
field one to that of the background, under normal 
circumstances we won't be able to see the maze. But, 
by setting PRIOR to 2, we can have players two and 
three appear between the background and playfield 
one, thereby making the section of the maze "in 
front" of either player visible. That's all there is to it. 

Playing the Game. 

Thunder Island is located in the middle of the 
Pacific, about a thousand miles north of New 
Zealand. An internationally renowned playboy 
resort, its main attraction is a huge transparent maze. 
This maze can be set up to any one of an almost 
infinite number of floor plans, so that it is impossible 
to memorize the layout. 

Because it is transparent, the maze is normally easy 
to solve. The island, however, is subject to frequent 
thunderstorms, and the power generator that lights 
the maze is often knocked out. As a precaution to 
this, those entering the maze carry lanterns, allowing 
them to at least see that part of it immediately 
surrounding them. It is the challenge of navigating 
the darkened maze, however, that has drawn you to 
Thunder Island. A different maze will be generated 
each time you play. Good Luck! 

Options 

Use the chart below to pick the type of game you 
want to play. A one-player game is good for 
practicing, but you'll find the two player games to be 
more fun. You can choose to play a daylight game, in 
which the whole maze is always visible, or a night- 
time one, in which only part of it is visible. You can 
also choose from three maze difficulty levels, and 
each player can choose from three lantern sizes 
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(allowing better players to take a handicap). Once 
you've selected the game you want, press START 
and the computer will begin generating the maze. 
Once it's finished, your lantern(s) will light up and 
the game will start. 

Using your joystick, you must maneuver your 
player to the corner of the maze diagonally opposite 
to the one you started at, and exit the maze. There is a 
timer at the bottom of the screen that keeps track of 
how long you've been in the maze, so you can 
compete for the fastest time. As soon as someone 
escapes, the storm will end and the maze will start 
reflecting a rainbow. Press START to run the 
program again. □ 



NIGHT 



DAY 



1 PLAYER LARGE MEDIUM SMALL 






1 I 2 I 3 |4 | 5 |6 |7|8|9 


|10|11 |12| 


J PLAYER 2 ] 




2 PLAYER 


LARGE MEDIUM SMALL 




— 


LARGE 


1 |2 


3 


10 


11 


12 


13 


14 


15 




PLAYER 


MEDIUM 


19(20 


21 


4 


5 


6 


16 


17 


18 




1 


SMALL 


22 23 


24 


25 


26 


27 


7 


8 


9 


|28|29|30j 



♦ ♦++♦++♦♦ ♦ ♦ ♦ 

EMHEMHEMH EMH 

MAZE DIFFICULTY 

E=EASY M=MEDIUM H=HARD 
(LARGE, MEDIUM, SMALL=LANTERN SIZE) 



180 CLR :G0T0 150 

118 SOUND C8,C8,C8,C8:RETURN 

128 FOB I=C1 TO 58:NEXT I: RETURN 

138 Di=ASC (MS (Z , Z) ) -48 : 02=ASC (MS (Z + Cl , 

z+cm-48 

148 BYTE=HEX(D2)+C16*HEX(DD i 02=02+Cl : 

POKE C789,PEEKC53778) : RETURN 

158 READ 08,01,02,03,04.05,06,07,08,03 

,018, Oil, 012, 013, 014, 016, 0128, 0568, 056 

1,0789,0718.0711,0712 

168 DIM DLI5CC13) , RS (C16) , MS (442) ,HEX( 

22): GRAPHICS 18:P85ITI0N 04, 05:? ttC6;" 

initializing" 

178 EOR 1=01 TO C13:READ BYTE : DLlS (I) = 

CHRS(BYTE) :NEXT I 

188 FOR I = C1 TO C16:READ BYTE :RS (I) =CH 

RS(BYTE) JHEXT I:F0R 1=08 TO 22:READ BY 

TE:HEX(I)=BYTE:NEXT I 

198 Q2=-Cl:F0R 1=01 TO 03 : READ M$:F0R 

Z=C1 TO LEN(MS)~C1 STEP C2 : GOSUB 138:P 

OKE 1571+Q2,BYTE:HEXT Z:NEXT I 

288 Q2=-C1:F0R 1=01 TO 21:READ M$:F0R 

Z=C1 TO LEN(MS)-C1 STEP C2:G0SUB 130:P 

OKE 29696+02, BYTE:NEXT Z:NEXT I 

218 FOR X=29689 TO 29695:P0KE X,C8:NEX 

T X:F0R 1=1536 TO 1578:P0KE I,C8:NEXT 

I 

228 GRAPHICS C16:P0KE C16,112:P0KE 537 

74,112 

238 POKE C718,C8:ST=PEEK(C568)+256*PEE 

KCC56D+C4:P0KE ST+C2,C7 :POKE ST+C4,C6 

:P0KE ST+24,65 

248 POKE 5T+25, PEEK (0568) :P0KE ST+26,P 

EEK(C561) 

258 POKE C788,C8:P0KE C789,C8:P0KE 071 

1,08 

268 POKE ST+28,138".P8KE 513, IHT (ADR CDL 

I$)/256) IPOKE 512,ADR(DLIS)-(PEEK(513) 

*256):P0KE 54286,192 

278 POKE 752,01 :P0SITI0H 03, 01:? "THUN 

DER ISLAND" 

288 POSITION 22,02:? 

D" 

298 POSITION 03,28:? "Copyright (0)198 
3 ANALOG Computing" 



388 FOR X=C1 TO C3:P0KE 0712, 014 :P0KE 

C718,C14:F0R Y=C8 TO 58:S0UND C8,V,C8, 

08 

318 IF Y=25 THEN POKE C718,C8:P0KE 

0712 08 
328 ' NEXT Y:NEXT X:F0R Y=51 TO 255: 
SOUND C8,Y,C8,C8:NEXT Y:P0KE C712,58:P 
OKE C718,58:P0KE 0789,08 

338 POKE 788, 218: POKE 0711 , 122 : GOSUB 1 
19 
348 PO SITION 018,09:? "|_ 

"*>': POSITION 018,018:? "|0NE| 



358 POSITION 018,11:? 




iKILL=Cl :LEUELP=C1 
378 POSITION 27,018:? SKILL; "■";: FOR X 
=01 TO 188:NEXT X 

388 IF PEEK (53279)003 THEN 448 
398 LEUELP=LEUELP+C1:LEUELP=LEUELP-C2* 
(LEUELP=C3) : POSITION C11,C18:IF LEUELP 
=01 THEN ? "ONE"; 

488 SOUND 08,018, 08, 08: GOSUB 118 
418 IF LEUELP=C2 THEN ? "TWO"; 
428 IF LEUELP=C1 AND SKILL>012 THEN SK 
ILL=Cl:GOTO 378 
438 GOSUB 128:G0SUB 128 
448 IF PEEK (53279)005 THEN 498 
458 SKILL=SKILL+C1:IF LEUELP=C1 THEN S 
KILL=SKILL-C12#(SKILL=13) 
468 IF LEUELP=C2 THEN SKILL=SKILL-3©*( 
5KILL=31) 

478 SOUND C8,28,C8,C8:G0SUB 118 
488 GOTO 378 

498 IF PEEK (53279) <>C6 THEN 388 
588 IF LEUELP=C2 THEN 548 
518 LEUELD= (SKILL <C18) : LEUELM=SKILL-C3 
*INT ( (SKILL-CD /C3) : LEVELMA=C2-INT ( (SK 
ILL-CD/03) 

528 IF NOT LEVELD THEN LEUELWA=C8 
538 GOTO 618 

548 LEUELD= (SKILL <28) :LEyELM=SKILL-C3* 
INT ( (SKILL-CD /C3) : T=INT ( (SKILL-CD /C3 
) 

558 IF T=C8 OR T=C3 OR T=C4 THEN LEUEL 
MA = C2 

568 IF T=C1 OR T=C5 OR T=C6 THEN LEUEL 
NA = C1 

578 IF T=C2 OR T=C7 OR T=C8 THEN LEUEL 
MA=CO 

588 IF T=C8 OR T=C5 OR T=C7 THEN LEUEL 
MB=C2 

598 IF T=C1 OR T=C3 OR T=C8 THEN LEUEL 
WB=C1 

688 IF T=C2 OR T=C4 OR T=C6 THEN LEUEL 
MB — CO 

618 GRAPHICS 21:P0KE C16,112:P0KE 5377 
4,112 

628 LEUELM=88»(LEUELM=C2) +255*(LEUELM= 
C3) : HIDTHA=LEUELMA*C4 : WIDTHB=LEUELMB«C 
4: IF UIDTHA=C8 THEN UIDTHA=C12 
638 IF UIDTHB=C8 THEN MIDTHB=C12 
648 POKE C712,58:P0KE 0718, 58 -.COLOR C3 
:POKE 0789, C14 

658 FOR X=C8 TO 78 STEP C3:PL0T X,C8:D 
RAMTO X,45:NEXT X:FOR Y=C8 T8 45 STEP 
C3:PL0T C1,Y:DRAMT0 77,Y:NEXT Y 
668 SOUND C8,C11,C8,C8:F0R X=C1 TO C3: 
NEXT X:GOSUB 118:P0KE C718,218:F0R X=C 
1 TO 508: NEXT X 

678 MS (CI, CD ="8": MS (442, 442) ="8": MS (C 
2)=M$:A=INT(RND(C8)K398)+27:MS(A,A)="1 

II 

688 POKE 1536,LEUELM:P0KE 1537,133:P0K 
E 1538, CI: SOUND C8, 24,04, C6 : X=USR (3812 
7, ADR (MS)) 

698 A=42*INT(RND(C8)*C2) : COLOR C8:PL8T 
C8,C1+A:PL0T 78,44-A:PL0T C8,C2+A:PL0 
T 78,43-A:G0SUB 110 

788 M=112:P0KE 1552,C1:P0KE 1554,C1+A+ 
(A>C0):POKE 1556,MIDTHA 

718 POKE 1553,77:IF LEUELP=C2 THEN POK 
E 1555,44-A-(A>08) :POKE 1557,WIDTHB 
728 FOR L=C8 T8 03 : P8KE 53248+L,C8 : HEX 
T L:POKE 54279, M:POKE 559,46:P0KE 623, 
34:P0KE 53277, 03 :PMB=M«256 
738 POKE 53258, MIDTHA/C4 :P0KE 53259, MI 
DTHB/C4 
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748 T=PMB+512:F0R L=T TO T+511:P0KE L, 

CO:NEXT L:L::A*C2 + C2*CA>C8> : POKE T+L+I8 

,24:P0KE T+L+19,24 

758 L=84-A*C2+C2*«A=CO) :P0KE T+L+146,2 

4:P0KE T+L+147,24 

768 L=PMB+A*C2+C2#(A>C0)+768+15-C4*LEU 

ELWAlFOR X=L TO L+C7+C8*LEUELWA : POKE X 

255 : NEXT X 
778 i. = PMB+84~A#C2+C2#f A=CO) +896+15-C4* 
LEVELMB:FOR X=L TO L+C7+C8#LEVELWB : POK 
E X,255:NEXT X 
788 POKE 53248,47 

798 SOUND C8,C11,C8,C8:F0R X = C1 TO C3 : 
NEXT X:GOSUB 110:P0KE 784 , C14 : GOSUB 12 
0:POKE 53250,47-WIDTHA 

888 FOR X=C16 TO C8 STEP -CI .'SOUND C8 , 
X,C8,C8:P0KE 706,C16-X:FOR V=C1 TO CIO 
:NEXT Y:NEXT X:GOSUB 118 SPOKE 706,72 
810 IF LEMELPOC2 THEN 858 
820 GOSUB 120:GOSUB 120:POKE 53249,199 
'.SOUND CO,C11,C8,C8:FOR X = C1 TO C3 ! NEX 
T X: GOSUB 118: POKE 70S, C14 ! GOSUB 120 
830 POKE 53251, 199-WIDTHB 
840 FOR X=C16 TO CO STEP -Cl:SOUND CO, 
X,C8,C8:P0KE 787,C16-X:F0R V=C1 TO CIO 
:NEXT V:NEXT X : GOSUB UOiPOKE 787,24 
858 FOR X=C1 TO 288: NEXT X : POKE C712.C 
14:FLASH=C8 

868 IF LEUELD THEN POKE C718.144 
878 ST = PEEK CC568) +256*PEEK CC561) +C4 : PO 
KE 5T+47,C2:P0KE ST+48 , 65 : POKE 5T+49,P 
EEKIC568J :POKE ST+50, PEEK (C561J 
888 X=U5R(1571) : SOUND C3,C10,C8,C2 
890 X = U5R (296961 
900 IF FLA5H<255 THEN 930 
910 IF INT(RND(C8)*280) <>10O THEN 958 
928 POKE C7I2,C14:FLA5H=C0:5OUND C2 , C8 
,C8,15 

938 FLASH=FLASH+C5: SOUND C2, FLASH, C8,C 
8;IF FLA5H=255 THEN SOUND C2,C8,C8,C8: 
REM 

948 IF FLASH=25 THEN SETCOLOR C4,C9-C6 
*CLEUELD=CBJ , C2*CLEUELD=C0) 
958 IF PEEKC1568) OR PEEKC1561) THEN 9 
98 

968 IF PEEKM558J THEN SOUND C8,28,C8, 
C8 

978 IF PEEK(1559J THEN SOUND C8.40,C8, 
C8 

980 FOR XrCl TO C5:HEXT X : GOSUB 110:GO 
TO 890 

990 X=L!5RC1783) : SOUND C2, CO, CO, CO 
1800 IF PEEKC1560) THEN POKE 53249, CO: 
POKE 53251, CO 

1010 IF PEEK €1561) THEN POKE 53248, C8 : 
POKE 53250, CO 

1828 X=USRCODRCR$>) : FOR X=53248 TO 532 
5HP0KE X,C8:NEXT X:GOTO 218 
1030 REM * CONSTANTS 

1040 DATA 0,1,2,3,4,5,6,7,8,9,18,11,12 
,13,14,16,128,568,561,789,718,711,712 
1850 REM # DLI ROUTINE 

1860 DATA 72,169,14,141,18,212,141,23, 
288,169,88,104,64 
1070 REM * RAINBOW ROUTINE 
1880 DATA 104,169,6,232,142,10,212,142 
,24,208,205,31,208,208,242,96 
1890 REM * HEX DOTH 

1180 DATA 0,1,2,3,4,5,6,7,8,9,0,0,8,8, 
8,8,8,18,11,12,13,14,15 
1110 REM * TIMER ROUTINE 

1120 DATA 6818A9A9655885CDA903655985CE 
A93C8D2202A9068D238268A514C986B8O34C5F 
E4A9088514EE1F06AD1F06C98AD832A968 
1138 DATA 8D1F86EE2066AD2OG6C96AD023A9 
8O8D2OO6EE2106AD2106C906D014A9808D2186 
EE2286AD2266C98AD085A9O88D22O6AOO8 
1148 DATA A284C881F864C884D888A91A91CD 
C81898F0B01E06491091CDC8CAD0E54C5FE468 
AD60E48D2282AD61E48D230260 
1150 REM * P/M-STICK ROUTINE 
1160 DATA 68A28O8D1E06AE1E86A9009D1686 
9D1806BD10O68D1AO6BD12O68D1B86BD78824A 
9803EE1B864A489883CE1B86205B74AD1E 
1170 DATA 06AABD10068D1AO6BD12068D1B86 
684A9003EE1A864A9083CE1A86205B74EE1E06 
AD1E06C902D8AC60A55885CBA55985CCAD 



1180 DATA IA064A4A184865CB85CBA90O65CC 

85CC680A8A8DOE86A9e3186D0E0638EDlA068D 

OEO6A9OO8D1D06AD1B06A204OA2E1D06E0 

1198 DATA 83D08B8D1C86AD1D0648AD1CO648 

CADOEA8D1CO668186D1C068D1CO6686D1D068D 

1DO618A5CB6D1C0685CBA5CC6D1DO685CC 

1200 DATA A08OB1CBAE8EO64A4AAO0OB0O2A0 

FFC8CAE8FFDOF2C801D8ei68A9ei38EDlE86A8 

AD1E06AAB912O6CD1B06DOO9B910O6CD1A 

1210 DATA 06D0016OAD1E86A8288775AD1O06 

DDlO06F811FE16868A18692D9D8eD838FD1406 

9D82D0AD1B86DD1206FO52FE16869827A2 

1220 DATA 7DC881D88FBD88729D8272BD8873 

9D8273189O0CBD08729D8272BD08739D6273CA 

D0DE189826A202C001D8OFBD80729D7E72 

1230 DATA BD88739D7E7318988CBD80729DFE 

71BDO0739DFE72E8E87FD8DC98AAAD1B869D12 

O6AD1A869D188668AD1Q86E888D01OC900 

1248 DATA D8O4EE1AO660C94ED014FE18O66O 

C94EDOO4CEIAO66OC90OD0O4FE18O660686868 

8DO886688D8706AD0AD229OFC90FF0F78D 

1250 DATA 6386AD8AD2291FC91A10F78D0486 

200577B1CDC931D8DFA9888D8986AD8406C9O1 

9885A0192O62778E8986ADO4O6C919BO05 

1268 DATA A81B2862778E8906AD6386C90190 

05AO002062770E0906AD0306C90EBO05AO3420 

6277AD09O6C900F09AOD04O66A186D0406 

1270 DATA 8D0A06AD83060A186D03O68D0B06 

A514F8FCA9008514A9148DOOD2AD0OD229038D 

OFO6C900DO19AD09O62908FO19CE0486EE 

1288 DATA OB062O6C77EEOB86286C774CCE76 

ADOF06C981D022AD89862984F022EE84O6EE0A 

O6EE8A86EE0A06EE0B86286C77EE8B0620 

1290 DATA 6C774CCE76AD0FO6C902D819AD89 

862982F812CE0306EE0AO62O6C77EE0A062O6C 

774CCE76AD69O629O1FO97EE0306EE0B06 

1308 DATA EE0B06EE8B86EE8A86206C77EE8A 

062O6C77A9188D00D22O8577A93191CD38AD81 

O6E9018D8106AD0206E9008DO206C9O0D8 

1318 DATA 08AD0106C900D0O160AD0AD2CD80 

O698034CD9754CB875AD03O68D650648AD0486 

A20O8E0606A204OE85062E0686E882DO88 

1320 DATA ADO68648AD850648CADOEB18686D 

O5O68DO5O6686DO6668D06O6686A186D04066D 

O5868D0506AD068669eO8DO68618AD0786 

1330 DATA 6D858685CDADO8866D06O685CEA0 

lA60BlCDC938D883EE89e660A55885CBA55985 

CCAD0A064A4A184865CB85CBA90865CC85 

1340 DATA CC688A8A8DOEO638AD0A06ED0E06 

AAE8A93FCAF0O6386A6A4C96778D8E06A98O8D 

OC06AD0BO6A204OA2E0C86E003DO0B8D0D 

1350 DATA 86AD8C8648AD0D8648CAD0EA8D8D 

0668186D0DO68D0DO6686DOC068D8C0618A5CB 

6D8D8685CBA5CC6D8C8685CCA880B1CB2D 

1360 DATA 0E0691CB60 



CHECKSUM DATA 

(See pgs. 7-10) 

i 8 S„S 0TA J28 » 82-*, 516, 417, 482, 48, 674, 35 

4,803,435,271,537,335,77,927,6820 

250 DATA 232,612,562,828,582,532.611,4 

31,113,568,211,363,497,995,287,7416 

488 DATA 948,988,982,918,994,566,121,1 

86,738,7,422,389,847,713,37,8768 

558 DATA 838,848,858,856,857,833,496,5 

31,266,652,915,829,358,519,627,18275 

788 DATA 594,213,595,989,905,613,15,33 

1,147,142,889,360,64,498,963,7258 

858 DATA 428 , 48 , 178 , 537 , 388,545 , 546 , 54 

3,333,358,64,69,76,671,347,4915 

1880 DATA 63.64,263,783,753,175,959,51 

9,126,678,358,277,523,395,765,6613 

1158 DATA 39,474,783,648,869,749,454,5 

6 ?A^ 75 ' 720 ' 445 ' 152 ' 388,589,683 ,8176 

1380 DATA 561,372,328,695,672,781,376, 

3785 
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MANIAC ! 



32K Cassette or Disk 



by Rick Messner 



Over the past several years, many game programs 
have been developed for the ATARI computers. 
Unfortunately, most of these games cost from $30 to 
$40 apiece. Taking pity on those who, like myself, 
cannot afford to buy all those great games, I pro- 
grammed an arcade-style game called Maniac! This 
fast-action Assembly language game is yours for the 
price of a few hours of typing. You're going to like 
this one! 

The game. 

Maniac! is set in a maze with eight levels. Each 
level is filled with crazed robots. These robots were 
once peaceful gardeners but became short-circuited 
by pesticides, and are now trying to destroy anything 
that moves with their missile-firing shovels. You are 
dropped into the first level of this maze, equipped 
only with your trusty .45 and ammunition. Your job 
is to stop all the robots on each level. 

At first, your task is not particularly difficult, but 
as you enter the higher-numbered maze levels the job 
gets harder and harder. That's because the robots on 
the higher-numbered maze levels have been around 
longer and are covered with a protective layer of 
earth and hullrushes. 

To start. 

At the beginning of this game there is a short in- 
troduction (just to help you learn my name), and 
then the machine asks you if you are going to have 
a one or two-player game. Enter your choice. A light 
grey maze appears on your monitor screen, along 
with a green figure representing you and three red 
figures representing the robots. At the end of the 
maze opposite from where you start is a door. Your 
objective is to destroy all three robots and to run out 
the exit door. If you do this, the computer automati- 
cally advances you to the next level of the maze. If, 
however, you exit without destroying all the robots, 
you remain at your current level and must try again. 



Movement. 

The computer moves the robots in a one-person 
game. In a two-person game, one player controls the 
hunter, and the other player controls the robots. 
Moving either the hunter or the robots is very 
simple. Hold the joystick in the normal position and 
push it in the direction you wish to move. 

If a robot and the hunter collide, either one or 
both is blown up. If either a robot or a hunter walks 
into a wall, it will explode. 

Earth and bulrushes. 

Robots on the higher-numbered maze levels be- 
come increasingly covered with a layer of earth and 
bulrushes. This makes it rather hard for the hunter's 
.45 to hit one. To kill a robot, the hunter must shoot 
it once for each level of the maze. Thus, on level six, 
the hunter must shoot each robot six times before it 
is destroyed. 

2-player version. 

In the two-player game, one person controls the 
hunter, and the other person controls the robots. 
The hunter is controlled by the joystick in port zero, 
and the robots are moved by the joystick in port one. 

To start, the person with the robots moves only 
the leftmost robot. If it is killed, control switches to 
the center robot. When that one is killed, control 
moves to the rightmost robot. 

As the player controlling the robots becomes 
more skilled he may want to switch control from 
robot to robot at will. This can be done by using one 
of three keyboard keys. To make the joystick control 
the leftmost robot, press the semi-colon key; to 
make the joystick control the center robot, press the 
plus sign key; to make the joystick control the right- 
most robot, press the multiplication sign key. 

Firing. 

Both the hunter and the robot can fire in many 
different directions. To rotate the arm — and the 
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weapon — of either the hunter or the robot, do this: 
press the joystick button and hold it down. While 
the button is depressed, you may move the joystick 
in any direction — this will cause the arm to rotate. 
As soon as you let go of the red button, the weapon 
will fire. 

If you wish to fire without moving the direction of 
the weapon, simply press and release the red button 
on your joystick. 

Scoring. 

Points are awarded to the hunter but not to the 
robots. The robots get their pleasure solely from 
frustrating the hunter. Scoring is as follows: the 
hunter gets ten points per level for each robot des- 
troyed, with a 1,000-point bonus for making it 
through all eight levels. 

Typing the program. 

Two program listings follow this article. Listing 1 
is the main data and data checking routine, and will 
create the cassette version of Maniac! Listing 2 
should be added to Listing 1 for disk users. 

Cassette instructions. 

1 . Type Listing 1 into your computer and check it 
for typing errors by using C:CHECK. 

2. Type RUN and press RETURN. The program 
will check for errors in the DATA lines. If any error 
messages are displayed, correct the lines indicated 
and re-RUN the program until all errors are elimi- 
nated. 

3. When all the DATA statements are correct, the 
program will ask you to "READY CASSETTE AND 
PRESS RETURN" and the console will BEEP twice. 
Place a cassette in your program recorder, press 
RECORD and PLAY simultaneously, then press RE- 
TURN. The computer will create a boot tape con- 
taining the Maniac! game. It is a good idea to CSAVE 
the BASIC program at this time, just in case you 
want to use it again later. 

4. To play Maniac!, remove any cartridges from 
your system. Place the Maniac! boot tape in your 
program recorder, rewind it to the beginning and 
press PLAY. Turn the computer's power OFF, then 
turn it ON while pressing START. The computer 
will BEEP. Press RETURN and the game will load 
and run automatically. 

Disk instructions. 

1 . Type Listing 1 into your computer and check it 
for typing errors with D:CHECK. After correcting 
any typing errors, enter the lines with Listing 2. 
These lines will merge with Listing 1 in order to 
create a Maniac! disk version maker program. 

2. Type RUN and press RETURN. The program 
will check for any errors in the DATA statements 
and will display a message if any errors are found. 
Correct any DATA lines that are in error and re- 
RUN the program until all errors are corrected. 



3. When the computer has made sure there are no 
errors in the DATA lines, it will ask "INSERT DISK 
WITH DOS, PRESS RETURN." Place a disk with 
DOS in drive 1 and press RETURN. The program 
will create an AUTORUN.SYS file containing the 
Maniac! game. When the READY prompt appears, 
the program is finished. It is a good idea to SAVE the 
Maniac! BASIC program just in case you need it 
later. 

4. To play Maniac!, place the disk containing the 
AUTORUN.SYS file in drive 1. Remove any car- 
tridges and turn the computer's power OFF, then 
ON. The Maniac! game will automatically load and 
start. □ 



18 REM MANIAC CASSETTE MAKER PROGRAM 

?0 REM 

30 CLR ;DIM XSC3984J : Q=0 : LINE=4990 ; RES 

TORE 5000 

40 P = 

50 LINE=LINE+I0:' "CHECKING LINE ";LIN 

E 

60 FOR 1 = 1 TO 16 

70 0=0 + 1 

88 TRAP 140:READ J'.IF 1 = 1 THEN IF LINE 

<>PEEK(183)+PEEKC184)*256 THEN ? "LINE 

"JLINE;" MI5SING!":END 
98 IF J=999 THEN 150 
100 XS(0J=CHR$CJ> 
110 P=P+J 
120 NEXT I 

130 TRAP 140JREAD J ; IF P = J THEN 48 
140 ? "ERROR IN LINE ";LINE:ST0P 
150 ? "READY CASSETTE AND PRESS RETURN 
":0PEN Ul, &.Q ,••£.:'• 
160 ? ttl;X$ 
179 CLOSE ttl 

5800 DATA 0,31,0,64,35,64,169,60,141,2 
,211,169,119,141.231,2,1439 
5018 DATA 133,14,169,79,141,232,2,133. 
15,169,38,133,10,169,64,133,1634 
5020 DATA 11,24,96,96,83,58,32,28,76,3 
2,55,72,162,255,141,30,1251 
5038 DATA 208,232,224,4,240,246,142,18 
4,79,169,2,141,187,79,32,148,2317 
5040 DATA 75,172,185,79,185,232.76,133 
,176, 133, 188, 185, 233, 76, 133, 17?; 2430 
5050 DATA 133,181,189,127,79,24,201.3, 
176,18,32,210,64,32,184,65,1718 
5860 DATA 32,38,68,32,173,70,32,223,68 
,32,17,71,189,159,79,201,1484 
5878 DATA 0,240,6,32,108,70,32,179,69, 
32,108,65,169,11,24,237,1382 
5088 DATA 191,79,141,188,79,169,2,141, 
198,79,32,189,75.173,188.79,1995 
5098 DATA 141,181,79,32,61,65,32,253,7 
3,32,178,64,32,180,71,32,1506 
5100 DATA 248,71.173,127,79,201,7.248, 
3,76,49,64,32,127,72,76.1645 
5118 DATA 44,64,173,252,2,141,8,104,17 
3,200,73,281,1,208,1,96,1739 
5128 DATA 173,252,2,201,7,248,46,201,6 
,240,34,201,2,240,22,76,1943 
5130 DATA 258,64,189,135.79,24,233.47. 
157, 173, 79, 189, 139, 79, 24^ 233, 2094 
5140 DATA 16,157,177,79,96,169,1,141,1 
95,79,76,250,64,163,2,141,1812 
5150 DATA 195,79,76,250,64,169,3,141,1 
95,79,172,135,73,185,127.73,2088 
5168 DATA 24,201.2,176,1.36,173,207,79 
,24,201,0,176,5,163,2,1536 
5170 DATA 141, 287, 79, 706, 287, 79, 173, 20 
7,79,201,1,248,1,96,163,0,2086 
5180 DATA 141,207,79,160,1,185,127,79, 
24,281,2,144,7,280,152,201,1910 
5190 DATA 4,208,242,96,140,195,73,169, 
255,141,252,2,96,142,182,79,2282 
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5200 DATA 148,183,79,162,255,232,236.1 

81,79,240,11,160,255,200,152,281,2766 

5210 DATA 255,288,258,76.69,65,174,182 

,79,172,183,79,96,142,182,79,2291 

5220 DATA 162,255,232,236,181,79,208,2 

58, 174,182,79,96,189,127,79,24,2553 

5230 DATA 201,2,176,1,96,24,201,7,144, 

1,96,24,105,10,141,187,1416 

5248 DATA 79,169,15,141,184,79,32,148, 

75,173,185,79,24,189,230,76,1798 

5250 DATA 133,178,173,186,79,109,231,7 

6, 133,179,165,176,24.125,139,79,2185 

5260 DATA 133,176,165,177,105,0,133,17 

7,160,0,177,178,145,176,200,152,2254 

5270 DATA 201,15,288,246,254,127,79,96 

,189,131,79,201,1.208,1,96,2132 

5288 DATA 224,0,248,14,236.195,79,248, 

3,76,216,65,173,121,2,76,1960 

5290 DATA 38,67,189,120,2,76,38,67,169 

,1,157,131,79.173,191,79,1577 

5380 DATA 141,187,79,169,18,141,184,79 

.32,148,75,173,10,210,24,205,1867 

5310 DATA 185,79,144,1,96,189,139,79,2 

4,205,139,79,144,50,24,233,1818 

5320 DATA 1,24,205,139,79,176,35,169,1 

5,141,114,3,189,135,79,24,1528 

5330 DATA 285,135,79,144,15,24,205,135 

,79, .1/6,3,76,38,67,32,163,1576 

5340 DATA 66,76,38,67,32,224,66.76,38, 

67,32,54,66,76,9,66,1853 

5350 DATA 32,110,66,76,9,66,189,173,79 

, 133,85,189,177,79,24.233,1728 

5360 DATA 0,133,84,32,36,70,168,0,177, 

178,201,8,208,29,230,85,1623 

5370 DATA 32,36,70,173,181,79,281,0,20 

8,17,198,85,198,85,32,36,1631 

5380 DATA 78,173,181,79,281,8,288,3,16 

9,14,96,169,15,96.189,173,1836 

5390 DATA 79,133,85,189,177,79,24,105, 

17,133,84,32,36,78,160,0,1403 

5480 DATA 177,178,281,8,288,229,238,85 

,32,36,78,173,181,79,281,8,2088 

5410 DATA 208,217,230,85,230,85,32,36, 

70,173,181,79,201,0,208,203,2238 

5420 DATA 169,13,96,189,173,79,133,85, 

189,177,79,133,84,32,36,70,1737 

5438 DATA 169,16,141,181,79,160,0,140, 

183,79,160,0,177,178,201,0,1864 

5440 DATA 208,94,165,178,24,109,193,79 

,133,178,165,179,105,0,133,179,2122 

5450 DATA 172,183,79,200,152,205,181,7 

9,208,221,173,114,3,41,11,96,2118 

5460 DATA 189,173,79,24,105,8,133,85,1 

89,177,79,133,84,32,36,70,1596 

5470 DATA 169,16,141,181,79,168,8,148, 

183,79,160,0,177,178,201,8,1864 

5480 DATA 288,30,165,178,24,109,193,79 

,133,178,165,179,185,8,133,179,2858 

5498 DATA 172,183,79,288,152,285,181,7 

9,288,221,173,114,3,41,7.96,2114 

55O0 DATA 173,114,3,41,15,96,201,14,24 

0,29,201,6,240,59,201,7,1640 

5510 DATA 240,33.201,5,240,65.281,13,2 

48,19,281,9,240,71,281,11,1990 

5520 DATA 240,28,201.10,240,77,96,32,2 

22,67,76,161,67,32,0,68,1617 

5530 DATA 76,161,67,169,1,157,127,79,2 

54,135,79,76,161,67,169,0,1778 

5548 DATA 157,127,79,222,135,79,76,161 

,67,32,222,67,254,135,79,169,2061 

5550 DATA 1,157,127,79,76,161,67,32,0, 

68,254,135, 79,169,1,157,1563 

5568 DATA 127,79,76,161,67,32,8,68,222 

,135,79,169,0,157,127,79,1578 

5570 DATA 76,161,67,32,222,67,222,135, 

79,169,0,157,127,79,76,161,1830 

5580 DATA 67,32,189,67,189,135,79,157, 

0,208,189,119,79,201,1,248, 1952 

5598 DATA 6,169,1,157,119,79,96,169,8, 

157,119,79,96,189,135,79,1658 

5680 DATA 24,201,208,176,6,24,201,48,1 

44,14,96,169,208,157,135,79,1890 

5610 DATA 224,8,208,3,76,228,74,96,169 

,48,157,135,79,96,189,139,1921 

5620 DATA 79,24,281,13,144,25,222,139, 

79,24,105,16,141,181,79,188,1660 

5630 DATA 139,79,177,176,136,145,176,2 

08,288,152,205,181,79,208,243,96,2592 



5648 DATA 189,139,79,24,281,96,176,29, 

24,105,16,168,177,176,280,145,1944 

5650 DATA 176,136,136,189,139,79,24,23 

3,3,141,181,79,152,285,181,79,2133 

5660 DATA 288.234,254,139,79,96.189,13 

1,79,281,1,240,1,96,224,8,2172 

5678 DATA 240,57,236,195,79,248,46,169 

,8,157,131,79,139,139,79,24,2068 

5680 DATA 233,14,24,205,139,79,176,14, 

24,105,22,205,139,79,144,12,1614 

5690 DATA 169,1,157,123,79,96,169,0,15 

7,123,79,96,169,2,157,123,1700 

5700 DATA 79,96,76,110,68,173,121,2,76 

,110,68,189,120,2,201,6,1497 

5710 DATA 201,6,240,62,281,10,240,25,2 

81,7,248,65,201,11,248,28,1978 

5720 DATA 201,5,240,68,201,9,240,31,20 

1,14,240,71,201,13,248,73,2848 

5730 DATA 96,169,0,157,123,79,169,0,15 

7,127,79,96,169,1,157,123,1702 

5740 DATA 79,169,8,157,127,79,96,169,2 

,157,123,79,169,0,157,127,1690 

5750 DATA 79.96,169,0,157,123,79,169,1 

,157,127,79,96,169,1,157,1659 

5760 DATA 123,79,169,1,157,127,79,96.1 

69,2,157,123,79,169,1,157,1688 

5770 DATA 127,79,96,169,0,157,123,79,9 

6,169,2, 157,123,79,96,224,1776 

5780 DATA 8,248,38,236,195,79,248,27,1 

73,191,79,141,187,79,169,10,2084 

5790 DATA 141,184,79,32,148,75,173,10, 

210,24,205,185,79,144,1,96,1786 

5880 DATA 76,30,69,173,133,2,76,12,69, 

189,132,2,201,0,240,8,1412 

5810 DATA 189,131,79,201,1,240,7,96,16 

9,1,157,131,79,96,189,159,1925 

5828 DATA 79,201,0,240,1,96,169,1,141, 

196,79,169,0,157,131.79,1739 

5830 DATA 189 , 127, 79, 201 , 1 , 248, 8, i69 , 2 

54,157, 151,79,76,68,69,169,2037 

5840 DATA 2.157,151,79,189,123,79,201, 

0,248,9,201,1,240,13,281,1886 

5850 DATA 2,240,17,96,169,255,157,155, 

79,76,105,69,169,0,157,155,1901 

5860 DATA 79,76,185,69,169,1,157.155,7 

9,169,35,157,159,79,189,127,1885 

5878 OATA 79,141,187,79,169,3,141,184, 

79,32,148,75,173,185,79,24,1778 

5388 DATA 125,123,79,141,184,79,169,2, 

141, 187,79,32,148,75,173,185,1922 

5890 DATA 79,168,185.241,77,24,125,135 

,79,157,143,79,185,242,77,24,2820 

5900 DATA 125,139,79.157,147,79,188,14 

7,79,189,110,78,25,128,105,153,1928 

5910 DATA 128,105,96.222,159,79,188,14 

7,79,189,110,78.89,128,105,153,2055 

5920 OATA 128,105,152,24,125,155,79,15 

7,147,79,189,159,79,201,0,240,2019 

5930 DATA 74,189,143,79,24,125,151,79, 

157,143,79,24,233,47,133,85,1765 

5940 DATA 189,147,79,24,233,16,133,84, 

32,36,70,173,181,79,24,201,1701 

5958 DATA 0,208,31,230.85,32,36,70,173 

,181,79,201,8,288,19,188,1741 

5960 OATA 147,79,189,110,78,25,128,185 

,153,128,185,189. 143,79.157,4,1819 

5970 OATA 208,96,169,8,157,159,79,157, 

4,208,96,169,0,157,143,79,1881 

5989 DATA 157,4,288,96,140,183,79,165, 

84,141,187,79,173,193,79,141,2109 

5998 DATA 184,79,32,148,75,165,85,141, 

188,79,169,4,141,190,79,32, 1791 

600© OATA 189,75,173,185,79,24,109,188 

,79,141,185,79,173, 186,79,181,2845 

6810 OATA 89,133,179,173,185,79,24,181 

,88,133,178,165,179,185,8,133, 1944 

6828 OATA 179,160,0.177,178,141,181,79 

,172,183,79,96,189,143,79,24,2860 

6O30 DATA 281.208,176,19,24,201,44.144 

,27,189,147,79,24,201,112,176,1972 

6840 DATA 32,24,201,13,144,33,96,169,1 

,157,159,79,169,208,157,143,1785 

6858 OATA 79,76,121,78,169,1,157,159,7 

9,169,44,157,143,79,76,121,1788 

6860 OATA 78,169,1,157,159,79,96,169,1 

,157,159,79,96,189,127,79,1787 

6870 OATA 141,184,79,169,3,141,187,79, 

32,148,75,173,185,7 9,24, 125, 1824 
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6888 DATA 123,79,141,181,73,189,113,75 

,141,184,79,169,6,141,187,79,1976 

6898 DATA 32,148,75,173,185,79,24,189, 

181,79,141,187,79,169,15,141,1817 

6188 DATA 184,79,32,148,75,173,185,79, 

24,189,238,76,133,178,173,186,2864 

6118 DATA 79,189,231,76,133,179,165,18 

8,24,125,139,79,133, 188,165,181,2178 

6128 DATA 185,8,133,181,168,8,177,178, 

145,188,288,152,281,15,288,246,2281 

6138 DATA 96,189,4,288,24,281,8,288,73 

,189,12,288,24,281,8,288,1845 

6148 DATA 65,168,8,142,181,79,152,24,2 

85,181,79,248,39,189,135,79,1958 

6158 DATA 24.217,143,79,176,38,24,185, 

8,24,217,143,79,144,21,189,1623 

6168 DATA 139,79,24,217,147,79,176,12, 

24,185,15,24,217,147,79,144,1628 

6178 DATA 3,76,98,71,288,152,24,281,4, 

288,288,96,169,1,157,159,1819 

6188 DATA 79,96,222,163,79,169,1,153,1 

59, 79, 189, 163, 79, 24, 28 J ,8.1856 

6198 DATA 248,1,96,169,1,141,197,79,16 

9,2,157,! 27 ,79,152, 261 ,8.1811 

6288 DATA 248,9,138,281,6,248,31,286,1 

94,79,96,173,191.79,141 ,184,2282 

6218 DATA 79,169.18,141,187,79,32,148, 

75,173,185,79,141,181,79,32,1798 

6228 DATA 159,73,286,194,79,96,286,192 

,79,173,192,79,281,8,248,1,2178 

6238 DATA 96.76,83,74,173,196,79,281,2 

,248,19,281,8,248,48, 169,1897 

6248 DATA 2,141,196,79,166,6,146,198,7 

9,169,175.141,1,218,172,198,2861 

6256 DATA 79,288,148,8,218,208,148,6,2 

16,288,148,8,216,286, 148,6,2869 

6268 DATA 218,266,146,6,216,152,24,281 

,246,176,4,148,198,79,96,169,2239 

6278 DATA 6,141,196,79,141,1,218,96,14 

6,183,79,173,197,79,261,6,1916 

6288 DATA 246,41,261,2,248,15,169,2,14 

1,197,79,169,143,141,3,216,1993 

6296 DATA 169,8,141,199,79,172,199,79, 

146,2,218,286,148.2,216,152,2894 

6386 DATA 281,246,176,7,146,199,79,172 

,183,79,96,169,8,141,197,79,2158 

6316 DATA 141,3,216,172,183,79,96,169, 

7,141,181,79.32,82,73,169,1817 

6326 DATA 46,141,47,2,169,3,141,29,268 

,169,268,141,192,2,169,56,1715 

6336 DATA 141,193,2,141,194,2,141,195, 

2,169,6,141,197.79,141,196,1934 

6348 DATA 79,169,184,141,7,212,166,1,1 

48,191,79,169,3,141,192,79,1867 

6356 DATA 169,16,162,8,157,167,79,232, 

224,6,268,248,32,43,74,169,1986 

6368 DATA 8,141,1,218,141,6,218,141,3. 

216,141,2,216,141,287,79,1837 

6378 DATA 173,191,79,24,281,8,176,21,1 

68,185,118,79,141,196,2,169,1923 

6386 DATA 6,141,198,2,141,197,79,141,1 

96,79,32,114,73,172,191,79.1835 

6396 DATA 146,184,79,169,4,141,187,79, 

32,148,75,169,3,141,194,79, 1824 

6468 DATA 173,288,73,281,2,246,8,169,4 

,141,195,79,76,217,72,169,2925 

6418 DATA 1,141,195,79,169,2,141,252,2 

,169,48,141,193,79,173,185,1962 

6426 DATA 79,24,233,3,168,24,185,4,141 

,181.79,162,6,185,46,78,1512 

6438 DATA 157,6,288,157.135,79,185,78, 

78,157,139.79,173,191,79,157,2852 

6448 DATA 163,79,169,6,157,131,79,157, 

143,79,157,159,79,268,232,152,2136 

6456 DATA 285,181,79,288,216,169,1,141 

,163,79,168,8,169,6,153,128,2852 

6468 DATA 185,153,6,186.153,128,186,15 

3,6,187,153,128,187,286,152,281,1952 

6478 DATA 128,288,233,169,1,141,123,79 

,141,124,79,141,125,79,141,126,2838 

6488 DATA 79,169,1,141,127,79,169,8,14 

1,128,79,141.129,79,141,136,1733 

6496 DATA 79,96,169,3,141,114,3,169,36 

,141,116,3,169,64,141,117,1561 

6588 DATA 3,169,28,141,122,3,173,181,7 

9,141,123,3,162,48,32,86,1494 

6516 DATA 228,96,168,6,185,253,77,24,2 

81,255,246,34,133,85,288,185,2356 



6526 DATA 253,77,133,84,169,85,32,221, 

75,268,185,253,77,133,85,288,2262 

6536 DATA 185,253,77,133,84,169,85,32, 

2,76,288,76,116,73,96,142,1799 

6548 DATA 182,79,162,8,168,8,185,167,7 

9,24,185,1,9,16,153,167,1489 

6558 DATA 79,261,26,268,11,169,16,153, 

167,79,286,152,261,6,268,238,2186 

6568 DATA 232,24,236,181,79,268,221,17 

4,182,79,32,266,73,96,166,86,2269 

6578 DATA 173,48,2,133,186,173,49,2,13 

3,181,177,188,24,165,7,133,1788 

6588 DATA 178,286,177,186,133,179,142, 

182,79,162,5,166,6,189,167,79,2212 

6596 DATA 145,178,288,282,152,281,6,26 

8,244,174,182,79,96,166,86,173,2486 

6668 DATA 48,2,133,188,173,49,2,133,18 

1,177,186,24,185,45,133,178,1743 

6618 DATA 268,177,188,133,179,166,8,16 

9,65,145,178,268,152,261,16,246,2389 

6628 DATA 5,285,192,79,288,241,169,8,1 

45,178,96,166,86,173,48,2,1987 

6638 DATA 133,188,173,49,2,133,181,177 

,186,133,178,286,177,188,133,179,2388 

6648 DATA 168,6,185,118,78,281,255,246 

,9,24,233,31,145,178,288,76,2133 

6656 DATA 66,74,96,32,194,76,169,6,141 

,181,79,32,82,73,169,6,1464 

6668 DATA 141,198,2,176,157,6,268,157, 

4,268,157,1,216,157,8,218,1988 

6678 DATA 232,224,4,288,239,168,6,185, 

37,79,24,261,255,248.3,24,2121 

6688 DATA 233,31,145,88,288,76,119,74, 

168,12,162,6,189,167,79,145,1886 

6696 DATA 88,136,232,224,6,288,245,32, 

184,74,168,36,162,6,189,281,2171 

6788 DATA 79,145,88,136.232,224,6,288, 

245,169,255,141,252,2,173,252,2667 

6716 DATA 2,261,255,240,249,76,38,64,1 

66,5,185,167,79,24,233,8,1978 

6728 DATA 24,217,261,79,176,15,24,165, 

1,217,281,79,144,6,136,152,1777 

6730 DATA 281,255,288,236,96,160,6,185 

,167,79,153,261,79,200,152,261,2567 

6740 DATA 6,208,244,96,162,0,169,6,157 

,4,268,157,6,288,157,8,1776 

6756 DATA 218,157,1,218,232,224,4,288, 

239,32,54,75,173,194,79,24,2116 

6766 DATA 201,6,208,3,238,191,79,173,1 

91,79,24,201,8,144,33,169,1942 

6770 DATA 1,141,191,79,166,0,169,200,1 

41,181,79,140,183,79,32,159,1935 

6786 DATA 73,172,183,79,266,140,183,79 

,152,281,5,208,241,238,192,79,2425 

6796 DATA 32,127,72,76,44,64,169,175,1 

41,1,216,162,6,165,88,133,1659 

6866 DATA 178,165,89,133,179,32.86,75, 

232,224,16,268,246,169,6,141,2167 

6818 DATA 1,216,141,0,210,96,142,182,7 

9,162,6,32,126,75,165,178,1799 

6826 DATA 24,163,133,73,133,176,165,17 

9,165,6,133,179,238,199,79,173,2166 

6838 DATA 199.73,141,8.218,232.224,79, 

288,225,174,182,79,96,168,6,2288 

6848 DATA 177,178,24,42,145,178,177,17 

8,24,42,145,178,288,152,285,193,2238 

6856 DATA 79,268,237,96,169,6,141,185, 

79,141,186,79,142,182,79,162,2165 

6868 DATA 8,18,46,186,79,14,187,79,144 

,9,24,169,184,79,144,3,1305 

6876 DATA 238,186,79,262,288,235,141,1 

85,79,174,182,79,96,142,182,79,2487 

6886 DATA 169,8,162,8,14,188,79,42,285 

,196,79,144,6,237,198,79,1792 

6890 DATA 238,188,79,282,288,238,141,1 

89,79,174,182,79,96,141,181,79,2494 

6960 DATA 142,182,79,146,183,79,169,11 

,141,114,3,169,8,141,120,3,1676 

6918 DATA 141,121,3,162,48,173,181,79, 

32,86,228,174,182,79,172,183,2044 

6920 DATA 79,96,141,251,2,142,182,79,1 

48,183,79,169,17,141,114,3,1818 

6936 DATA 162,48,32,86,228,174,182,79, 

172,183,79,96,32,194,76,169,1992 

6946 DATA 2,141,181,79,32,82,73,169.8, 

141,198,2.165,88,24,165,1482 

6958 DATA 61,133,178,165,89,105,0,133, 

179,166,6,185,163,78,261,255,2085 
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6960 DATA 248,3,24,233,31,145,178,298, 

76,59,76,32,205,76,32,205,1821 

6970 DATA 76,32,205,76,32,205,76,32,20 

5,76,169,255,141,181,79,32,1872 

6980 DATA 61,65,32,61,65,32,61,65,32,6 

1,65,32,61,65,32,61,851 

6990 DATA 65,32,194,76,169,2,141,181,7 

9,32,82,73,169,8,141,198,1634 

7880 DATA 2,165,88,24.105,40,133,178,1 

65,89,133,179,160,0,185,218,1864 

7010 DATA 78,201,255,240,9,24,233,31,1 

45,178,200,76,142,76,32,194,2114 

7020 DATA 76,169,255,141,252,2,173,252 

,2,24,201,30.240,14,24,201,2056 

7030 DATA 31,240,3,76,166,76,169,1,141 

,200,79,96,169,2,141,200,1790 

7040 DATA 79,96,169.12,141,114,3.162,4 

8, 32, 86, 228, 96, 169, i, 141, 1577 

7050 DATA 196,79,32,188,71,169,2,141,1 

81,79,32,61,65,173,196,79,1736 

7060 DATA 201,0,208,238,96,51,242,76,0 

,106,128,106,0,107, 128,107,1794 

7070 DATA 128,105,148,92,76,44,28,12,1 

2,12,12.12,4,4,4,4,689 

7880 DATA 12,12,28,12,204,124,12,12,12 

,12,12,4,4,4,4,12,480 

7990 DATA 12.28,12,12,28,108,204,12,12 

.12,4,4,4,4,12,49,517 

7180 DATA 58,50,52,56,48,48,48,48,48,3 

2,32,32,32,48,48,56,736 

7110 DATA 48,51,62,48,48,48,48,48,32,3 

2,32,32,48,48,56,48,729 

7120 DATA 48,56,54,51,48,48,48,32,32,3 

2,32,48,148,92,76,44,881 

7130 DATA 28,12,12,12,12,12,18,10,9,9, 

27,12,28,12,204,124,533 

7140 DATA 12,12,12,12,12,10,10,9,9,27, 

12,28,12,12,28,108.325 

7150 DATA 204,12,12,12,10,10,9,9,27,49 

,58,50,52,56,48,48, 666 

7160 DATA 48,48,48,80,80,144,144,216,4 

8,56,48,51,62,48,48,48,1217 

7170 DATA 48,48,80,80,144,144,216,48,5 

6,48,48,56,54,51,48,48,1217 

7180 DATA 48,88,88,144,144,216,128,4,2 

,8,64,0,18,128,4,32,1892 

7198 DATA 2,4,8,4,8,2,1,4,8,128,8,5,8, 

2,0,64,224 

7288 DATA 1,2,4,2,8,2,0,0,0,0,2,0,1,0, 

128,0,142 

7210 DATA 0,1,2,1,0,0,0,0,0,1,0,0,0,0, 

8,0,5 

7220 DATA 0,0,0,0,0,0,0,0,0,0,8,8,8,8, 

9,0,0 

7230 DATA 0,0,0,0,3,0,6,7,9,7,3,7,6,8, 

9,159,198 

7248 DATA 0, 159, , 159, 28 , 159, 52, 159 , 3 

.159,78,8,78,8,78,8,1187 

7258 DATA 58,8,30,0,0,40,0,40,40,40,40 

,80,40,110,78,110,698 

7260 DATA 64,100,0,188,40,180,40,130,4 

0,255,192,48,12,3,51,75,1250 

7270 DATA 112,176,51,96,160,192,51,58, 

128,192,51,72,120,128,51,51,1689 

7280 DATA 91,154,51,112,160,192,51,51, 

136,192,51,24,50,72,50,32,1469 

7290 DATA 38,38,50,64,64,72,50,32,64,5 

6,50,18,69,64,50,18,797 

7380 DATA 18,18,50,58,72,48,50,24,72,5 

0,50,24,24,69,3,12,642 

7310 DATA 48,192,1,2,4,8,83,67,79,82,6 

9,58,32,48,48,48,869 

7320 DATA 48,48,48,32,32,32,32,32,32,3 

2,32,32,32,32,32,32,560 

7330 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,77,69,594 

7340 DATA 78,58,255,32,32,32,32,32,77, 

65,78,73,65,67,33,32,1041 

7350 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,66,89,603 

7360 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,82,73,67,638 

7370 DATA 75,32,77,69,83,83,78,69,82,2 

55,80,82,69,83,83,32,1332 

7380 DATA 49,32,79.82,32,50,32,32,32,3 

2,32,32,32,32,32,32,644 

7390 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,32,32,512 



7400 DATA 32,32,49,32,45,32,79,78,69,3 

2,80,76,65,89,69,82,941 

7410 DATA 32,32,32,32,32,32.50,32,45,3 

2,84,87,79,32,80,76,789 

7420 DATA 65,89,69,82,255,83,67,79,82, 

69,58,32,32,32,32,32,1158 

7430 DATA 32,32,32,32,72,73,45,83,67,7 

9,82,69,58,32,32,32,852 

7440 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,32,32,512 

7450 DATA 32,32,32,32,80,82,69,83,83,3 

2,65,78,89,32,75,69,965 

7460 DATA 89,32,84,79,32,67,79,78,84,7 

3,78,85,69,255,0,6,1190 

7470 DATA 52,101,199,167,54,162,176,52 

,49,155,138,27,59,59,1,49,1500 

7480 DATA 999 



CHECKSUM DATA 
(See pgs. 7-10) 



10 DATA 48,253,903,981,241,241,100,417 

,542,151,331,734,603,507,73,6125 

160 DATA 308,656,680.489,744,369,665,2 

16,207,936,610,2 22,898,866,848,8714 

5130 DATA 424,93,577,899,23,198,526,81 

0,418,894,649.567,704,616,248,7646 

5280 DATA 190,256,378,288,65,154,421,1 

88,888,242,98,244,229,455,274,4258 

5430 DATA 238,844,343,169,242,846,524, 

838,928,916,142,418,964,255,269,7936 

5580 DATA 284,314,537,88,500,883,612,5 

68,33,580,464,87,964,925,943,7774 

5730 DATA 88,132,305,138,145,571,261,8 

88,121,957,347,144,295,627,348,5367 

5880 DATA 404,413,926,899,574,585,247, 

168,595,123,408,344,612,567,385,7258 

6030 DATA 514,524,278,170,560,441,418, 

579,717,738,173,553,258,585,233,6645 

6180 DATA 120,208,443,558,265,261,492, 

58,314,27,201,453,572,88,6,4066 

6338 DATA 244,261,291,114,575,265,312. 

69,287,894,405,571,488,561,789,6126 

6480 DATA 519.36,227,324,341,104.961,3 

33,406,193,575,827,520,658,90,6114 

6630 DATA 863,474,801,994,960,530,477, 

549,241,257,779,745,233,41,519,8463 

6780 DATA 563,46,358,19,870,539,714,45 

1,803,935,227,950,229,356,281,7341 

6930 DATA 580,949,388,997,270,654,265, 

490,491,149,156,227,37,234,309,6188 

7080 DATA 29,48,626,632,407,484,227,39 

0,779,780,383,42,776,609,590,6802 

7230 DATA 864,492,66,835,550,20,651,34 

3,368,541,559,547,555,576,677,7636 

7388 DATA 577,528,698,637,616,653,518, 

781,711,74,988,6597 



32K Disk revision. 



18 REM MANIAC 32K DISK CHANGES 

150 ? "INSERT DISK MITH DOS, PRESS RET 

URN"; :DIM INSCIJ :INPUT INSlOPEN «1,8,8 

^■DlAUTORUN.SVS" 

50OO DATA 255,255,6,64,127,79,169,60,1 

41,2,211,169,113,141,231,2,2031 

7480 DATA 10,0,11,0,38,64,224,2,225,2, 

38,64,0,0,0,0,678 

7490 DATA 999 
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HARVEY WALLBANGER 



16K Cassette 24K Disk 



by Charles Bachand 



Machine language games are the wave of the 
future. They are the games that attract you with their 
graphics, their speed, and their playability. They are 
also the games that sell! Since it is inherently more 
difficult to write games in machine language, and 
since the author of a machine language game has a lot 
of his time invested in it, it is understandable that he 
would rather sell it than give it away. Cold cash 
usually speaks loudly. Personally, I prefer the fame. 

So, for your enjoyment, here is Harvey 
Wallbanger with the full machine language source 
listing for the programers out there who like to 
modify games. 

Here is a very quick description of the game: 
Harvey Wallbanger is situated in the middle of a 
closed-in room. He may move freely within the 
room (that part of the screen within the four walls) 
but the room is constantly getting smaller (the walls 
are moving in on our rabbit friend.) Harvey is 
allowed to touch the left and right hand walls, but he 
will be killed if flattened by these two walls. He is 
under no circumstances allowed to touch the top and 
bottom walls, for they are highly electrified. 

All is not lost for Harvey, however. He does have 
his patented "Wallbanger Gun" to shoot at the 
walls and make them move away. His only problem 
is that the speed of the moving walls constantly 
increases with time. Numbers will appear on the 
screen that Harvey may collect. These numbers will 
be added to his score. The faster you collect the 
numbers, the bigger the final score. The numbers 
may not be within the confines of the now-receding 
wall and this will necessitate that Harvey shoot back 
a wall to access the numbers. Also, Harvey cannot 
shoot the numbers as this will kill off that particular 
number and generate a new one someplace else. 

As you read the Assembler listing for the game 
you will notice that there are no line numbers in the 
source code. This is due to the fact that I am using the 



ATARI Macro Assembler package. 

There are two BASIC programs before the 
machine language listing of Harvey Wallbanger. The 
first is a disk file maker program to get the game up 
and running faster than typing in the Assembler 
source listing. The second BASIC listing contains 
modifications to the first to make a cassette bootable 
machine language tape for the cassette-bound crowd. 

To make a disk version of Harvey Wallbanger, you 
need a formatted disk with a version of DOS II on it. 
Load the disk maker program into the computer's 
RAM but do not run the program. Next, insert a 
formatted disk containing DOS II into the disk 
drive. Run the program. The computer will print out 
the line numbers of the DATA statements that the 
program is reading. These numbers start at 1000 and 
end at 2000 with increments of 10. After reading line 
2000 the disk drive will turn on and an AUTORUN- 
.SYS' File will be written out to the disk. To play the 
game, simply remove all the cartridges and reboot 
with this new disk. 

To make a cassette version of this program 
requires a slightly different procedure. After the disk 
version of the program is in memory, add the 
changes for the cassette maker program and run it. 
The program will read through all the data and then 
the computer will beep twice. At this time insert a 
blank cassette tape in the program recorder and set it 
up for record by pressing the record and play 
buttons on the recorder. We now hit the return key 
as if we were doing a CSAVE and wait. The 
computer is now recording the machine language 
program onto the cassette tape. Once it is through 
you can boot the program by rewinding the tape, 
powering down the computer, and turning on the 
computer while holding down the start key. The 
computer will beep once, press play on the recorder, 
and press return on the computer. The program will 
load from the cassette and run automatically. □ 
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Basic listing. 



108 REN HARVEY HALLBAMGER 

118 REN DISK MAKER PROGRAM 

129 REM 

138 DIM PROGS (1688J :PNTR=1 

148 LINE=990:TRAP 228 

158 LIHE=LIME+18:F0R COUMT=l TO 15 

168 READ BYTE: PROGS CPNTR J =CHRS<BYTE3 

178 PMTR=PMTR+l:TOTAL=TOTAL+BYTE 

188 NEXT COUMT:? "LINE !"J LINE 

198 READ CHECKSUM 

288 IF CHECK5UM=T0TAL THEM 158 

218 ? "BAD CHECKSUM: LIKE ";LINE:5TOP 

228 IF PEEK(195J=6 THEM 248 

238 ? "BAD DATA: LIME ";LIME:STOP 

248 OPEN tUjS.e.-D^UTORUM.SYS" 

250 PRINT ttl ; PROGS ;: END 

999 REM 

1888 DATA 255,255,8,52,216,57,76,71,52 

,112,112,112,112,71,7,1568 

1818 DATA 58,7,7,7,7,7,7,7,7,7,112,112 

,78,27,52,2854 

1828 DATA 65,3,52,242,225,226,226,233, 

244,243,218,211,192,243,227,4984 

1838 DATA 239,242,229,218,288,288,288, 

288,183,97,189,181,8,8,111,7185 

1848 DATA 118,181,114,128,112,114,181, 

115,115,8,8,115,116,97,114,8645 

1858 DATA 116,128,216,32,181,228,169,2 

11,141,35,52,169,3,141,245,18632 

1868 DATA 57,169,288,141,43,52,141,44, 

52,141,45,52,141,46,52,12816 

1879 DATA 169,68,141,228,57,141,26,2,3 

2,228,56,168,2,32,231,13573 

1888 DATA 56,136,16,258,169,3,141,48,2 

,169,52,141,49,2,169,14976 

1890 DATA 4,141,111,2,169,40,141,219,5 

7,169,196,141,228,57,169,16812 

1188 DATA 69,141,221,57,141,2,288,169, 
184,141,222,57,141,3,288,18767 

1118 DATA 169,122,141,217,57,169,55,14 

1,218,57,169,46,141,47,2,28518 

1128 DATA 169,3,141,29,288,169,48,141, 

7,212,169,158,141,198,2,22305 

1138 DATA 169,72,141,199,2,169,24,141, 

192,2,169,152,141,193,2,24873 

1148 DATA 169,52,141,194,2,169,196,141 

,195,2,169,1,141,233,57,25935 

1158 DATA 162,53,160,284,169,7,32,92,2 

28,169,137,141,38,2,169,27698 

1168 DATA 53,141,39,2,169,153,141,48,2 

,169,53,141,41,2,169,29813 

1178 DATA 1,141,25,2,169,8,141,38,208, 

141,246,57,141,227,57,30599 

1189 DATA 141,223,57,141,224,57,141,14 
, 218 , 162 , 3, 157, 229 , 57 , 157, 32572 

1198 DATA 247,57,157,251,57,157,255,57 

,157,3,58,202,16,238,170,34654 

1288 DATA 157,128,49,157,8,58,232,288, 

247,169,255,157,8,51,232,36746 

1218 DATA 298,258,232,138,41,1,170,189 

,219,57,74,8,285,11,212,38761 

1228 DATA 208,251,141,18,212,48,144,3, 

141,18,212,173,18,218,41,40567 

1230 DATA 246,141,26,288,168,10,169,0, 

157,15,288,141,10,212,173,42443 

1240 DATA 10,210,41,246,141,26,288,136 

,288,237,173,208,2,141,26,44448 

1258 DATA 288,173,245,57,248,8,173,246 

,57,16,3,76,99,52,173,46274 

1268 DATA 31,288,41,1,208,177,76,71,52 

,173,228,57,281,2,248,48048 

1270 DATA 3,206,228,57,169,1,141,25,2, 

96,173,228,57,141,26,49593 

1288 DATA 2,238,219,57,286,220,57,238, 

221,57,173,221,57,141,2,51702 

1299 DATA 288,286,222,57,173,222,57,14 

1,3,288,238,227,57,173,227,54121 

1388 DATA 57,41,1,178,189,207,57,141,0 

,210,169,8,141,223,57,55792 

1310 DATA 96,173,246,57,288,60,173,245 

,57,288,55,32,228,56,162,57840 

1320 DATA 0,142,1.210,142,3,210,142,5, 

210, 142, 7, 210, 142^ 24, 59439 



1338 DATA 2,142,25,2,142,26,2,189,47,5 

2,48,7,157,92,58,68421 

1348 DATA 232,76,248,53,162,9,189,58,5 

2,48,7,157,151,58,232,62136 

1358 DATA 76,254,53,76,189,56,173,12,2 

88,141,236,57,173,4,288,64852 

1368 DATA 141,237,57,173,226,57,48,9,2 

86,226,57,74,9,160,141,65873 

1378 DATA 7,218,173,223,57,43,8,288,22 

3,57,9,192,141,1,218,67638 

1388 DATA 173.224,57,48,8,206,224,57,9 

,128,141,3,218,173,225,69524 

1398 DATA 57,238,225,57,238,225,57,238 

,225,57,141,4,218,173,246,71915 

1489 DATA 57,248,26,238,246,57,238,192 

,2,238,192,2,173,192,2,74918 

1418 DATA 18,19,18,141,2,218,169,136,1 

41,3,210,76,189,56,173,75546 

1429 DATA 229,57,249,13,296,229,57,173 

,219,57,281,28,248,3,206,77704 

1438 DATA 219,57,173,238,57,248,13,286 

,238,57,173,220,57,201,204,80841 

1448 DATA 249,3,238,228,57,173,231,57, 

248,16,286,231,57,173,221,82484 

1458 DATA 57,141,2,288,281,39,248,3,28 

6,221,57,173,232,57,248,84481 

1468 DATA 16,296,232,57,173,222,57,141 

,3,288,201,298,240,3,238,86686 

1478 DATA 222,57,169,8,133,77,141,234, 

57,141,235,57,173,120,2,88504 

1489 DATA 291,15,249,16,165,29,41,7,29 

8,18,169,16,141,2,210,89965 

1499 DATA 169,4,141,224,57,173,128,2,5 

6,233,5,18,178,165,28,91514 

1508 DATA 106,186,186,106,189,160,57,1 

44,3,189,182,57,133,128,189,93369 

1510 DATA 161,57,144,3,189,183,57,133, 

129,162,3,78,128,2,176,94966 

1528 DATA 16,189,299,57,249,3,141,234, 

57,189,213,57,249,3,141,96955 

1539 DATA 235,57,292,16,232,173,236,57 

,201,12,298,9,286,35,52,98886 

1549 DATA 296,245,57,238,246,57,41,4,2 

40,8,238,217,57,169,8,180909 

1558 DATA 141,234,57,173,236,57,41,8,2 

49,8,296,217,57,169,9,192753 

1569 DATA 141,234,57,24,173,219,57,105 

,4,74,205,218,57,144,9,104474 

1579 DATA 206,35,52,206,245,57,238,246 

,57,173,218,57,105,10,10,106389 

1588 DATA 205,220,57,144,9,296,35,52,2 

06,245,57,238,246,57,24,188398 

1598 DATA 173,217,57,189,234,57,141,21 

7,57,141,0,298,24,173,218,118416 

1688 DATA 57,199,235,57,141,218,57,178 

,168,0,177,128,157,0,59,112132 

1619 DATA 232,299,192,14,298,245,173,1 

32,2,295,233,57,141,233,57,114456 

1629 DATA 176,63,173,234,57,13,235,57, 

288,5,238,233,57,288,58,116463 

1638 DATA 169,64,141,225,57,169,4,141, 

5,218,238,244,57,173,244,118684 

1648 DATA 57,41,3,178,173,234,57,18,15 

7,255,57,173,235,57,18,128293 

1658 DATA 157,3,58,24,173,217,57,185,3 

,157,247,57,173,218,57,121999 

1668 DATA 195,8,157,251,57,169,8,179,1 

57,128,49,232,16,258,162,123918 

1678 DATA 3,189,255,57,29,3,58,248,127 

,189,251,57,24,125,3,125528 

1688 DATA 58,157,251,57,168,18,185,2,2 

85,220,57,144,12,32,208,127286 

1698 DATA 56,109,238,57,141,230,57,76, 

31,56,233,12,205,219,57,128975 

1708 DATA 176,9,32,208,56,189,229,57,1 

41,229,57,185,128,49,29,138669 

1710 DATA 34,57,153,128,49,185,129,49, 

29,34,57,153,129,49,189,132893 

1728 DATA 8,298,160,0,186,144,3,76,195 

,56,208,192,4,298,245,133898 

1738 DATA 24,189,247,57,125,255,57,157 

,247,57,157,4,288,285,222,136181 

1749 DATA 57,144,12,32,208,56,109,232, 
57,141,232,57,76,111,56,137681 

1750 DATA 233,6,205,221,57,176,9,32,20 
8,56,189,231,57,141,231,139653 

1769 DATA 57,282,48,3,76,232,55,162,3, 
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169,0,29,255,57,29,141838 

1778 DATA 3,58,282,16,247,281,8,288,3, 

141,5,218,168,8,78,142562 

1788 DATA 237,57,144,48,32,18,57,185,2 

38,57,72,32,231,56,184,144114 

1798 DATA 168,248,23,162,3,254,43,52,1 

89,43,52,281,218,288,8,145978 

1888 DATA 169,288,157,43,52,282,16,238 

,136,288,233,76,189,56,288,148161 

1818 DATA 192,3,288,286,141,38,288,76, 

98,228,138,72,32,18,57,149868 

1828 DATA 32,231,56,184,178,76,111,56, 

169,8,157,255,57,157,3,151494 

1838 DATA 58,24,169,8,96,162,288,169,8 

,157,6,58,282,288,258,153261 

1848 DATA 96,174,18,218,224,288,176,24 

9,189,7,58.288,244,173,18,155489 

1858 DATA 218,41,15,281,18,176,247,153 

,238,57,25,284,57,157,7,157287 

1868 DATA 58,138,153,241,57,96,169,8,1 

98,241,57,157,7,58,173,159882 

1878 DATA 18,218,41,31,9,16,141,6,218, 

169,38.141,226,57,96,168475 

1888 DATA 3,12,48,192,8,8,18,18,68,116 

,68,28,38,62,63,161177 

1898 DATA 126,8,8,11,18,68,116,68,28,3 

8,62,62,247,8,8,161989 

1988 DATA 72,88,68,46,68,56,128,124,25 

2,126,8,8,288,88,68,163333 

1918 DATA 46,68,56,128,124,124,239,8,8 

,66,36,68,28,68,24,164368 

1928 DATA 68,126,126,231,8,8,66,36,68, 

48,68,24,68,126,126,165589 

1938 DATA 231,8,8,68,36,68,28,68,24,68 

,126,254,7,8,8,166455 

1948 DATA 34,36,68,48,68,24,68,126,127 

,224,8,8,68,36,68,167418 

1958 DATA 68,68,24,68,182,254,7,8,8,34 

,36,68,68,68,24,168251 

1968 DATA 68,182,127,224,8,8,62,57,62, 

57,62,57,8,8,38,169159 

1978 DATA 57,38,57,38,57,8,6,118,57,13 

4,57,86,57,74,57,178838 

1988 DATA 74,57,74,57,8,8,58,57,50,57, 

58 , 57 , 8, 8 , 122 , 178743 

1998 DATA 57,146,57,98,57,16,88,144,38 

,41,1,255,8,8,8,171733 

2088 DATA 8,1,255,226,2,227,2,8,52,8,0 

,8,8,8,0,172498 



CHECKSUM DATA 
(See pgs. 7-10) 

188 DATA 817,614,88,233,884,712,13,669 

,51,479,193,937,474,484,282,6922 

256 DATA 285,126,878,689,583,189,136,4 

69,988,631,894,11,31,76,166,5984 

1138 DATA 174,218,183,831,739,238,97,7 

4,168,918,186,183,768,726,894,6389 

1288 DATA 179,511,757,78,788,373,752,1 

99,13,939,969,269,952,986,17,7686 

1438 DATA 434,201,157,52,186,712,689,4 

07,32,226,188,945,948,196,259,5624 

1588 DATA 66,458,25,389,36,287,281,236 

,268,727,30,33,86,84,918,3676 

1736 DATA 517,19,72,666,632,192,203,38 

3, 285, 199, 966, 508, 37 , 279, 659,5537 

1880 DATA 368,328,886,663,821,129,399, 

358,385,643,246,341,428,5987 



100 REM HARVEY KALLBANGER HODS 
118 REM CASSETTE MAKER PR8GRAM 
128 REM 
248 OPEN HI, 8,128, "C : " 

241 PR0G$(1,1}=CHR$(03 

242 PR0G$C2,2J=CHR$C1Z3 

243 PR8G$t3,3)=CHR$t2581 

244 PR8G$C4,4]=CHR$(51) 



Assembly listing. 



HARVEY UALLBANGER by Charles Bachand 



Copyright (C) 1982 ANALOG Magazine 



Operating System Equates 



HP0SP8 


s 


$0688 


M8PF 


= 


$0868 


HP0SP2 


= 


$0892 


HP05P3 


B 


$0883 


HP0SM8 


= 


$0864 


P8PF 


- 


$0864 


P8PL 


= 


$086C 


GRP2 


= 


$088F 


CQLBK 


9 


$08lA 


GRACTL 


= 


$08 ID 


H1TCLR 


= 


$08 IE 


CGNSOL 


= 


$08 IF 


AUDF1 


9 


$0288 


AUDC1 


= 


$0261 


AUDF2 


= 


$0282 


AUDC2 


= 


$D283 


AU0F3 


= 


$0284 


AUDC3 


- 


$0285 


AU0F4 


- 


$0286 


AUDC4 


- 


$028? 


RANDOM 


- 


$028A 


IRQEN 


9 


$D28E 


PMbASE 


- 


$0487 


WSYNC 


S 


$048A 


VCOUNT 


s 


$D48B 


SETVBV 


s 


$E45C 


XITVBV 


s 


$E462 


SIOINT 


= 


$E465 


ATRACT 


= 


$8640 



player 6 horizontal position 
missile 8/playfield collision 
player 2 horizontal position 
player 3 horizontal position 
missile 8 horizontal position 
player 8/playfield collisions 
player 8 to player collisions 
player 2 graphics register- 
background color 
graphics control register 
collision 'HIT' clear 
console switch port 
audio -frequency 3 
audio volume 1 
audio -frequency 2 
audio volume 2 
audio -frequency 3 
audio volume 3 
audio frequency 4 
audio volume 4 
random number qenerator 
IRQ interrupt enable 
P/M base address 
wait for horizontal sync 
scan 1 ine counter 
set vertical blank vector 
vertical blank exit vector 
ser i a 1 1/0 initialization 
atract node counter 



System Shadow Registers 



RTCL0K 
CDTW1 
CDTMU2 
C0TMA1 
CDTMA2 
SDMCTL 
SDLSTL 
GPRI0R 
STICKB 
STRIG8 
PC0LR8 
PC0LR1 
PC0LR2 
PC0LR3 
C0L0R2 
C0L0R3 
C0L0R4 

! 

! 



PIC 



$8812 
$8218 
$821A 
$8226 
$8223 
$822F 
$8238 
$826F 
$8278 
$6284 
$82C8 
$82C1 
$82C2 
$82C3 
$82C6 
$82C7 
$82C8 



system clock 
system timer 1 
system timer 2 
system timer 1 vector 
system tinier 2 vector 
DMA control 
display list pointer 
qraphics priority 
joystick 1 
tr-igqer 1 
player 8 color 
player 1 color 
player 2 color 
player- 3 color 
playfield 2 color 
playfield 3 color 
background color 



Page Zero Variable; 



ORG 

DS 



$8888 

5 



;area not used by system 
; rabbit image pointer 
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1 

1 


Player 


/ Missile RAM Space 


I 


ORG 


$3888 ;out of everyones way 


PM 


DS 


$188 jfirst area not used 


MISL 


OS 


$38 ;Missile qraphics area 


PLR8 


DS 


$88 jplayer 6'qraphics area 


PLR1 


OS 


$38 jplayer 1 graphics area 


PLR2 


DS 


$88 jplayer 2 graphics area 


PLR3 


DS 


$38 jplayer 3 graphics area 




Program entry point 




JHP 


HBRVEV 




Game d 


splay list 


OL 


DB 


$78 ,$78 ;32 blank scan lines 




DB 


$78, $78 




DB 


$47 jmode 2 line w/LMS bit 




DU 


DISP ; address of game display 




DB 


$87,$87 j? more mode 2 lines 




DB 


$87,$87 ' 




oe 


$87,$87 




DB 


$87,$87 




DB 


$87 




DB 


$78,$78 jskip 16 lines 




DB 


$44 jmode 1 lime w/LMS bit 




DW 


SLINE jaddress of score line 




DB 


$41 jjump on vertical blank 




m 


DL jto start of display list 




Score 


ine data 


SL1NE 


DB 


'R'+$A8 




DB 


w*m 




DB 


•B'+$A8 




DB 


'%'*m 




DB 


'i'*m 




DB 


'T'+$A8 




DB 


•S'+$A8 




DB 


':'+$A8 


mm 


DB 


■'3'+$A8 jnumber of rabbits 




OB 


'■ **m 




DB 


'S'+$AB 




DB 


'C'+$A0 




DB 


'Q'+$A8 




D8 


'R'+$A0 




DB 


'E+$Afl 




DB 


':'+$A8 


snum 


DB 


'8'+$A8 jscore display 




DB 


'"8'+$A8 




DB 


'8'+$AB 




DB 


■8'+$A8 




Game over message 



HARVEY 



MORE 



INUHS 



GOMSG DB 'game' 

DB 8,8,'ov' 

DB ' er' ,$88 

PSMSG OB 'pres' 

DB V,l,8.'5' 

DB 'tart', $88 



Initial izat ion Code 



CLD 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
LDA 
STA 
STA 
JSR 
LDY 
JSR 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 
LDY 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
STA 



SIOINT 

«'3'+$A6 

RNIH 

83 

LIVES 

fl-'B'+$A8 

SNbW 

SNUH+1 

5NUM+2 

SNUM+3 

TIM23T 

CDTW2 

CLSCRN 

82 

PUTNUM 

INUMS 

8DL1$FF 

SDLSTL 

SDL/256 

SDLSTL+1 

#$84 

GPRIOR 

848 

BYLOC 

8196 

BYLOC+i 

4168 

BXLOC 

HP0SP2 

8184 

BXLOC+1 

HP0SP3 

8122 

WRX 

855 

HARY 

8$2E 

SDMCTL 

83 

GRACTL 

8PM/256 

PMBASE 

8$?6 

C0L0R2 

8$48 

C0L0R3 

8$18 

PC0LR8 

8$?8 

PC0LR1 

8$34 

PC0LR2 

8$C4 

PC0LR3 

81 

STRIGF 

8VB/254 

WBWFF 

87 

SE7VBV 

8Tli$FF 

CDTMA1 

8T 1/254 

CDTMAl+1 

#T24$FF 

CDTHA2 

8T2/254 

CDTMA2+1 

81 

CDTWl + 1 

88 

H1TCLR 

DIESU 

TICTOC 



clear decimal flag 
stop cassette 
display for '3' 
3 1 ives (display) 
get 3 l Ives 
Initial ize counter 
display for '8' 
store in the four 
bytes used for the 
score display 
area. 

get 1 second count 
set reset value 
set system timer 82 
clear game play-field 
display 3 numbers (8-2) 
put the number on screen 
decrement number counter 
done yef No. 
Yes. low byte DL address 
DL pointer (low) 
high byte DL address 
DL pointer (hiqh) 
set PF over PLAYER 
qraphics priority 
high wall 
starting location 
low wall 

starting location 
left wall 
starting location 
hardware register 
right wall 
starting location 
hardware register 
center screen-4 color clocks 
Harvey 5 initial X position 
center P/M-8 bytes 
Harvey's initial Y position 
set P/M DMA on bi ts 
store in DMA control 
set P/M enable bits on 
store in qraphics control 
qet high byte of P/M addr 
point hardware to it 
1 iqht blue color 
default color too dark 
pink color 
same here 
gold color 
set rabbit color 
blue color- 
set missile 1 color 
red-orange color 
left wall color 
green color 
right wall color 
initial ize trigger flag- 
to no shot fired 
address of VB (MSB) 
address of VB (LSB) 
deferred vertical blank opt 
set deferred Vblank vector 
addr of tinier 1 routine LSB 
set timer 1 vector LSB 
addr of timer 1 routine MSB 
set timer 1 vector MSB 
addr of timer 2 routine LSB 
set timer 2 vector LSB 
addr of timer 2 routine MSB 
set timer 2 vector MSB 
get 4.25 second count 
set system timer 81 
get a zero 

reset collision registers 
rabbi t is al ive 
reset tictoc counter 
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STA 


V0L1 




STA 


U0L2 




STA 


IRQEN 




LDX 


#3 


UINCZ 


STA 


U1NC,X 




STA 


SHOTX,X 




STA 


SHOTY,X 




STA 


SINCX.X 




STA 


SINCY,X 




DEX 






BPL 


UINCZ 




TAX 




IM81 


STA 


MISL,X 




STA 


PLR8,X 




INK 






8NE 


1H81 




LDA 


#$FF 


IM23 


STA 


PLR2,X 
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Tim 



INX 
BNE 



IM23 



start with no t i c toe sound 
start with no shuffle noise 
disable all IRQ interrupts 
set index value to 3 
zero wal I mover counter 
zero X missile location 
zero Y missile location 
zero X missile increment 
zero Y missile increment 
next wall mower counter 
more walls/missiles? Yes. 
set index to zero 
clear Missile area 
clear Player B, 1 area 
do next byte 
done yet 9 No. 
turn on pixels 
set Player 2, 3 area 
do next byte 
done yet? No. 



Main program used to generate the display. 
Actual game done entirely durinq display's 
vertical blank processing routine. 



increment wall pointer 
transfer pointer to Ace 
mask o-f-f lowest bit 
put back in X register- 
get wall vertical position 
divide by 2, odd=carry set 
save carry flag 
compare with line counter- 
not yet! 

start at new I ine 
get carry -flag back 
branch on even line number 
wait for next 1 ine 
random background color 
max lura of 6 
tor horizontal walls 
let's have 16 1 ines of this 
get a zero for overlap 
background overlaps piayer 
wait for next I ine 
random background color 
max I urn of 6 
for horizontal walls 
decrement 1 ine counter- 
IB 1 ines done yet? No! 
get original background 
store in background 
more I i ves 
No. skip code 
a new I ife? 
No. 

Yes. more lives 
check for start switch 
mask off bit 
start? No. 
restart game 



System timer #1 interrupt handler. 

Used to speed up walls every 4.25 seconds. 



;get wall speed 

;must stop at two 

;is it two? Yes. 

;No, then decrement 

;get 4.25 second cycle time 

; reset timer SI 

jreturn 



HBARS 


INX 
TXA 






AND 


#1 




TAX 






LDA 


BYLOC,X 




LSR 


A 




PHP 




VCHECK 


CMP 


VCOUNT 




BNE 


UCHECK 




STA 


USYNC 




PLP 






BCC 


ONELIN 




STA 


USYNC 


ONELIN 


LDA 


RANDOM 




AND 


HF6 




STA 


CQLBK 




LDY 


#18 


LINES 


LDA 


#8 




STA 


GRP2.X 




STA 


USYNC 




LDA 


RANDOM 




AND 


#IF6 




STA 


COLBK 




DEY 






BNE 


LINES 




LDA 


C0L0R4 




STA 


COLBK 




LDA 


LIVES 




BEQ 


HB1 




LDA 


DIESW 




BPL 


HB1 




JMP 


MORE 


HB1 


LDA 


CONSOL 




AND 


#$81 




BNE 


HBARS 




JMP 


HARVEY 



LDA 


T1M2ST 


CMP 


#2 


BEQ 


Tim 


DEC 


TIM2ST 


LDA 


#1 


STA 


CDTMV1 


RTS 





I 
I 
I 

I 

T2 



System timer #2 interrupt handler. 

Used to move walls and initiate wall noise. 



LDA 
STA 
INC 
DEC 
INC 
LDA 
STA 
DEC 
LDA 
STA 
INC 
LDA 
AND 
TAX 
LDA 
STA 
LDA 
STA 
RTS 



TIM2ST 

CDTNV2 

BYLOC 

BYLQC+1 

BXLOC 

BXLOC 

HP0SP2 

BXLOC+3 

BXLOC+1 

HP0SP3 

TICTOC 

TICTOC 

#1 

METRO, X 
AUDF1 
#*83 
VQL1 



get timer #2 value 
reset timer #2 
move top wall down 
move bottom wall up 
chanoe left wall location 
get new location 
change player 2 position 
change right wall location 
get new location 
change player 3 position 
increment TIC-TOC counter 
get counter value 
just need 8 or 1 value 
use for index 
get sound frequency 
change frequency 
get volume value 
save in volume counter 
return 



Deferred vertical blank processing routine. 
Here is where all the actual game playing 
takes place. This could be quite long. 



1 

UB 


LDA 


DIESU 




BNE 


UBS 




LDA 


LIVES 




BNE 


UBS 




JSR 


CLSCRN 




LDX 


#8 




STX 


AUDC1 




STX 


AUDC2 




STX 


AUDC3 




STX 


AUDC4 




STX 


CDTMVi 




STX 


CDTMVl+1 




STX 


CDTMV2 


GOPRT 


LDA 


GOHSG.X 
PSINIT 




BMI 




STA 


DISP+85, 




INX 






JMP 


GOPRT 


PSINIT 


LDX 


#8 


PSPRT 


LDA 


PSMSG,X 




BMI 


VBXIT 




STA 


DISP+144 




INX 






JMP 


PSPRT 


V6XIT 


JMP 


V8X 


UBS 


LDA 


P8PL 




STA 


P8PLT 




LDA 


P8PF 




STA 


P8PFT 




LDA 


NSOUND 




BMI 


NOSND 




DEC 


NSOUND 




LSR 


A 




ORA 


MAS 




STA 


AUDC4 


NOSND 


LDA 


U0L1 




BMI 


SND2 




DEC 


V0L1 




ORA 


«C8 




STA 


AUDC1 


3ND2 


LDA 


V0L2 




BMI 


SND3 




DEC 


U0L2 




ORA 


nm 




STA 


AUDC2 


SND3 


LDA 


FREQ3 



rabbit dying? 

He sure is. 

any lives left? 

There sure are. 

clear screen of numbers 

initial ize X with zero 

stop tictoc sound 

stop dying sound 
;stop gun noise 
;stop number sound 
;shut off the two timers 
;ditto. 
jsame here. 
;get a character 
;end of string? Yes. 
Xjput on screen 
increment index 
;continue 

;zero the index 
;get another character 
;end of string? Yes. 
,X;put on screen 
; increment index 
jcontinue 

;exit vertical blank 
jplayer/player col! isions 
; store in temp variable 
jplayer to PF coll isions 
;store in temp variable 
jtreasure sound counter 
;end of sound? Yes. 
jdecrement volume 
jdivide volume by 2 
;add pure tone 
ichanqe volume 
;qet tictoc volume value 
;[f <8 we produce no sound 
jdecrement volume value 
;mask on the distortion 
,'generate the tictoc sound 
;qet shuffle volume 
;if <B we produce no sound 
;decrement volume value 
jmask on the distortion 
jgenerate the shuffle noise 
;get shot frequency 



VOL. 1 



THE A.N.A.L.O.G. COMPENDIA 



PAGE 171 



INC 
INC 
INC 
STA 
LDA 
BEQ 
INC 
INC 
INC 
LDA 
ASL 
ASL 
ASL 
STA 
LDA 
STA 
JMP 

TM0V1 LDA 
BEQ 
DEC 
LDA 
CMP 
BEQ 
DEC 

TM0V2 LDA 
BEQ 
DEC 
LDA 
CMP 
BEQ 
INC 

TH0V3 LDA 
BEQ 
DEC 
LDA 
STA 
CMP 
BEQ 
DEC 

TM0V4 LDA 
BEQ 
DEC 
LDA 
STA 
CMP 
BEQ 
INC 

TMQVX LDA 
STA 
STA 
STA 
LDA 
CMP 
BEQ 
LDA 
AND 
6NE 
LDA 
STA 
LDA 
STA 

CENTER LDA 
SEC 
SBC 
ASL 
TAX 
LDA 
ROR 
ROR 
ROR 
ROR 
LDA 
BCC 
LDA 

PICMUL STA 
LDA 



FREG3 

FREQ3 

FREQ3 

AUDF3 

DIESW 

TM0V1 

DIESU 

PC0LR8 

PCOLR8 

PC0LR6 

A 

A 

A 

AUDF2 

#$88 

AUDC2 

VBX 

WINC 

TM0V2 

wTNC 

BYLOC 

#28 

TM0V2 

BYLOC 

WINCH 

TM0V3 

wTNC+1 

BYLOC+1 

#284 

TM0U3 

BYLOC+1 

UINC+2 

tmov4 

UINC+2 

BXLOC 

HP0SP2 

#3? 

TM0V4 

BXLOC 

U1NC+3 

TMOVX 

U1NC+3 

BXLOC+1 

HP0SP3 

#288 

TMQVX 

BXLQC+1 

#8 

ATRACT 

XTEMP 

YTEMP 

STICKS 

#$8F 

CBffER 

RTCLOK+2 

#387 

CENTER 

#$16 

AUDF2 

#$84 

U0L2 

STICK8 

#5 

A 

RTCLOK+2 

A 

A 

A 

A 

PK1,X 

PICMVL 

PK2,X 

PIC 

PK1+1.X 



increment shot frequency 

do it again 

and one last time 

change -frequency Uower) 

is rabbit dying 

No. continue 

Yes. 2 second die period 

change rabbit colors 

again 

get number 

*2 

*4 

*3 

use as -frequency 

get distortion 

make sound 

exit vertical blank 

check push wall up 

push up? No. 

decreisent push up counter 

get top wall location 

compare with top of screen 

at top? fes. 

raoue wal 1 up 

check push wall down 

push down? No. 

decrement push down counter 

get bottom wall location 

compare bottom of screen 

at bottom? Yes. 

move wall down 

check push wall left 

push left? No. 

decrement push le-ft counter 

get left wall position 

move left wall player 

check for left wall limit 

at limit? Yes. 

move wall left 

check push wall right 

push right? No. 

decrement push right counter 

get right wal I position 

move right wall player 

check for right wall I imit 

at limit? Yes. 

move wall right 

get a zero 

poke out atract mode 

zero rabbit X increment 

zero rabbit Y increment 

get Joystick value 

at center position? 

Yes. skip code 

get real time clock LSB 

at 1/7.5 second mark? 

No. skip code 

get shuffle frequency 

set frequency register 

get volume value 

set shuffle volume 

get Joystick value 

set carry for subtract 

values 5-15 only 

5-15 now 8,2,4,... 

use for index 

get real time clock LSB 

divide by 2 

divide by 4 

divide by 8 

carry set/reset at .13 sec 

get rabbit picture LSB 

other pic at .13 sec? No. 

get alternate picture LSB 

store LSB of pic address 

get rabbit picture MSB 





BCC 


PICMVH 




LDA 


PK2+1.X 


PICMVH 


STA 


PIC+1 




LDX 


#3 


CHKSTK 


LSR 


STICKS 




BCS 


CHKNXT 




LDA 


STBLX.X 




BEQ 


CHK6 




STA 


XTEMP 


CHK8 


LDA 


STBLY.X 




BEQ 


CHKNXT 




STA 


YTEMP 


CHKNXT 


DEX 






BPL 


CHKSTK 




LDA 


P8PLT 




CMP 


#$8C 




BNE 


NOSQUE 




DEC 


RNUM 




DEC 


LIVES 




INC 


DIESU 


NOSQUE 


AND 


#$84 




BEQ 


BMPRT 




INC 


HARX 




LDA 


#8 




STA 


XTEMP 


BHPRT 


LDA 


P8PLT 




AND 


#$88 




BEQ 


BMPUP 




DEC 


HARX 




LDA 


#8 




STA 


XTEMP 


BHPUP 


CLC 






LDA 


BYLOC 




ADC 


#4 




LSR 


A 




CMP 


HARY 




BCC 


BMPDN 




DEC 


RNUM 




DEC 


LIVES 




INC 


DIESU 


BMPDN 


LDA 


HARY 




ADC 


#18 




ASL 


A 




CMP 


BYLOC+1 




BCC 


NOBMP 




DEC 


RNUM 




DEC 


LIVES 




INC 


DIESU 


NOBMP 


CLC 






LDA 


HARX 




ADC 


XTEMP 




STA 


HARX 




STA 


HP0SP8 




CLC 






LDA 


HARY 




ADC 


YTEMP 




STA 


HARY 




TAX 






LDY 


#8 


MOVHAR 


LDA 


<PIC),Y 




STA 


PLR8,X 




1NX 






INY 






CPY 


#14 




BNE 


MOVHAR 




LDA 


STRIG8 




CMP 


STRIGF 




STA 


STRIGF 




BCS 


NOFIRE 




LDA 


XTEMP 




ORA 


YTEMP 




BNE 


FIREBN 




INC 


STRIGF 




BNE 


NOFIRE 


FIREGN 


LDA 


#$48 




STA 


FREQ3 




LDA 


#$84 



other pic at .13 sec? No. 
get alternate picture MSB 
store MSB of pic address 
count 3 down to 8 
shift bit into carry 
correct direction? No. 
check X movement direction 
movement allowed? No. 
store X movement value 
check Y noveraent direction 
movement allowed? No. 
store Y movement value 
do next stick position 
done yet? No. 
get player 8 coll ision 
left/right squeze? 
No. Check indvdual walls 
decrement 1 ives display 
decrement lines counter 
the rabbit has died switch 
check left wall collision 
hit left wall'' No. 
Yes. Move rabbit to riqht 
get zero value 
stop rabbit X movement 
get player 8 coll ision 
check right wall collision 
hit right wall? No. 
Yes. Move rabbit to left 
get zero value 
stop rabbit X movement 
clear carry for add 
top wall Y location 
offset by 4 
divide by 2 

compare rabbit Y location 
hit top wall? No. 
decrement lives display 
decrement lines counter 
the rabbit has died switch 
get rabbit Y location 
offset by 18 
multiply by 2 
compare bottom wal! Y 
hit bottom wall? No. 
decrement lives display 
decrement lines counter 
the rabbit has died switch 
clear carry for add 
get rabbit X position 
add X increment 
save new rabbit X position 
position rabbit player 8 
clear carry for add 
get rabbit Y position 
add Y increment 
save new rabbit Y position 
use position as index 
initialize picture counter 
get rabbit picture byte 
store in player 8 area 
increment player pointer 
increment picture pointer 
check for end of picture 
at end? No. 
get trigger value 
compare with trigger flag 
save new triqger flag 
shot fired? No. 
rabbit X increment 
OR rabbit Y increment 
rabbit stationary? No. 
set trigger flag to 1 
skip fire routine 
ini tial ize frequency 
zero audio freo 3 
shot volume + distortion 
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STA 
INC 
LDA 
AND 
TAX 
LDA 
ASL 
STA 
LDA 
ASL 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 

NOFIRE LDA 
TAX 

ERASES STA 
INX 
BPL 
LDX 

PLOTS LDA 
ORA 
BEQ 
LDA 
CLC 
ADC 
STA 
TAY 
ASL 
ADC 
CMP 
BCC 
JSR 
ADC 
STA 
JMP 

H1TTP SBC 
CMP 
BCS 
JSR 
ADC 
STA 

PLOTNH LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
LDY 
ROR 
BCC 
JHP 
INY 
CPY 
BNE 
CLC 
LDA 
ADC 
STA 
STA 
CMP 
BCC 
JSR 
ADC 
STA 
JMP 

HITLF SBC 
CMP 
BCS 
JSR 



MHPF 



MHPFB 



AUDC3 
SHOTS 
SHOTS 
#3 

XTEMP 

A 

SINCX,X 

YTEMP 

A 

S1NCY.X 

HARX 

83 

SHOTX,X 

HARY 

#3 

SHOTY.X 

m 

MISL.X 

ERASES 
13 

S1NCX,X 
SINCY,X 
NOPLOT 
SHOTY,X 

SINCY,X 
SHOTY.X 

A 

#2 

BYLQC+1 
HITTP 
Z1NCXY 

UINC+1 
UINC+i 
PLOTNH 

#12 

BYLOC 

PLOTNH 

ZINCXY 

UINC 

UINC 

MISL,Y 

H1SMSK,X 

MISL,Y 

MISL+1,Y 

MISMSK.X 

MISL+l.Y 

M8PF.X 

H 

A 

MHPF8 

MHIT 

«4 
MHPF 

SHOTX,X 

S3NCX.X 

SHOTX,X 

HPOSMfl.X 

BXLOC+I 

HITLF 

ZINCXY 

UINC+3 

WINC+3 

NOPLOT 



enable volume 3 
increment shot pointer 
get shot pointer 
make it 0-3 only 
use pointer tor index 
get rabbit X increment 
make shot twice as -fast 
set missile X increment 
get rabbit Y increment 
make shot twice as -fast 
set missile Y increment 
clear carry for add 
get rabbit X position 
move to center X of rabbit 
shot initial X position 
get rabbit Y position 
move to center Y of rabbit 
shot initial Y position 
zero accumulator 
zero X index 
zero all missiles 
next missile byte 
done? No. 
count 3 downto 8 
get missile X increment 
OR missile Y increment 
any movement? No. 
missile Y position 
clear carry for add 
add Y increment 
store new Y position 
Y position now index 
multiply by 2 
offset for compare 
compare with bottom wall 
hit bottom wall? No. 
zero nissile increments 
add 3 to wall increment 
new bottom wall increment 
continue 

offset for bottom side 
compare with top wall 
hit top wall -3 No. 
zero missile increments 
add 8 to wall increment 
new top wall increment 
et missile byte 
missile mask 
store new byte 
qet next missile byte 
OR missile mask 
store new next byte 
missile/playf ield collision 
init Y register 
collision? 
No. No. No. 
Yes. Yes. Yes. 
try next bit 
any more bits? 
Certainly' Yuk. Yuk. 
clear carry for add 
get missile X position 
add X increment 
store new X position 
position missile 
compare missile with wall 
hit rtqht wall 7 No. 
zero missile increments 
add 8 to wall increment 
new wall increment 
continue 





ADC 


wTNC+2 




STA 


U1NC+2 


NOPLOT 


DEX 






BMI 


N0PL1 




JMP 


PLOTS 


N0PL1 


LDX 


#3 




LDA 


m 


CHKMIS 


ORA 


S1NCX.X 




ORA 


SINCY,X 




DEX 






BPL 


CHKMIS 




CMP 


118 




BNE 


NOSSND 




STA 


AUDC3 


NOSSND 


LDY 


m 


MISHIT 


LSR 


PBPFT 




BCC 


MHI 




JSR 


ERANUM 




LDA 


VTBL.Y 




PHA 






JSR 


PUTNUM 




PLA 






TAY 






BEQ 


sex 


SCORER 


LDX 


#3 


SCI 


INC 


SNUM,X 




LDA 


3NUM,X 




CMP 


#'9'+*Al 




BNE 


SCY 




LDA 


rfl-'+5A8 




STA 


3NUM,X 




DD< 






BPL 


SCI 


SCY 


DEY 






BNE 


SCORER 


sex 


JMP 


VBX 


MHi 


INY 






CPY 


#3 




BNE 


MISHIT 


UBX 


STA 


HITCLR 




JMP 


XITVBV 


MHIT 


TXA 
PHA 






JSR 


ERANUM 




JSR 


PUTNUM 




PLA 






TAX 




. 


JMP 


NOPLOT 


< 

! 


Canon 


y used su 



ZINCXY 



CLSCRN 
CL8 



;add 3 to wail increment 
;new wall increment 
;next missile 
jmissiles done? Yes. 
;continue loop 

set up pointer 

zero accumulator 

OR in X increments 

OR in Y increments 

decrement pointer 

at end? No. 

check shot increments 

any increments? Yes. 

end shot sound 

initial ize Y index 

shift collision to carry 

collision w/nuraber? No. 

erase the number 

get value of number 

save on stack 

put out a new number 

get old number 

use as counter value 

was it zero? Yes. 

point to score low digit 

increment digit 

get diqit 

past ATASCI1 '9'+color? 

No. continue 

reset digit 

change score display 

point to next digit 

score rolled over? No. 

decrement value 

scoring done? No. 

exit routine 

jcheck next color digit 

;done 8-2 yet? 

;No. continue 

jdear collision registers 

;exit deferred vertical blank 

jsave X register 

;on stack 

; erase number hit and 

;put a new one on screen 

jpull X register 

;from stack 

{continue on 



$6 joffset for right side 

BXLOC jcompare with left wall 

NOPLOT ;hit left wall' No. 

ZINCXY :zero missile increments 



Clear missile display area 

LDA #8 ;qet zero value 

STA SINCX,X ;zero missile X increment 

STA SINCY,X ;zero missile Y increment 

CLC jelear carry for add 

LDA #8 ;get value for add 

RTS ;we return to the program 

Clear the game playfield 

LDX #288 ;set 8-199 bytes 

LDA #8 ;to zero 

STA DISP-l,X;store in display 

DEX ; count down 

BNE CL8 ;past zero yet? No. 

RTS ;return to program 

Put random number from 8-9 on screen at 
a random location 8-199 



PUTNUM LDX RANDOM ;get random number 
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PN8 



CPX 
BCS 
IDA 
BNE 
LDA 
AND 
CMP 
BCS 
STA 
ORA 
STA 
TXA 
STA 
RTS 



#288 
PUTNUM 

D1SP.X 

PUTNUM 

RANDOM 

#$8F 

#18 

PN8 

VT6L,Y 

C7BL,Y 

D1SP.X 

ATBL,Y 



is number < 288? 

No. try another 

see if space is occupied 

Yes. try again 

qet another random number 

fmit it to 8-15 

is number < 18? 

No. try another 

save number 

OR with color 

put number on screen 

move screen offset to A 

save screen offset 

end of routine 



ERANUM 



Erase number from screen 

LDA #8 ;get zero -for blank 

LDX ATBL.Y ;qet # position on screen 

STA DISP.X ;61ank number on screen 

LDA RANDOM ;get random number 

AND #$1F ;mask off high bits 

ORA #$18 jmake it $18-$1F 

STA AUDF4 ;use as sound -frequency 

LDA #38 iinitialize- 

STA NSOUND jvolurae counter 

RTS ;end of routine 



Program tables and constants 



MISMSK 


DB 


$83 


imissile 8 mask 




DB 


$8C 


imissile 1 mask 




DB 


$38 


imissile 2 mask 




DB 


$C8 


imissile 3 nask 


HARLF1 


DB 


8,8 


;left view #1 




DB 


$12,$8A 






DB 
DB 


$3C,$74 
$3C,$1C 






DB 


$1E,$3E 






DB 


$3F,$7E 




HARLF2 


DB 


8,8 


;left view 12 




DB 


$8B,$8A 






oe 


$3C,$74 






DB 


$3C,$1C 






DB 


$1E,$3E 






DB 


$3E,$F7 




MRRT1 


DB 


8,8 
$48 ,$58 


;nght view #1 




D8 






DB 


$3C,$2E 






DB 


$3C,$38 






DB 


$73,$7C 






DB 


$FC,$7E 




FWRRT2 


DB 


8.8 
$08 ,$58 


jnght view #2 




DB 






DB 


$3C,$2E 






DB 


$3C,$38 






DB 


$78,$7C 






DB 


$7C,$EF 




HARFR1 


DB 


8,8 
$42 ,$24 


jfront view #1 




DB 






DB 


$3C,$14 






DB 


$3C,$18 






DB 


$3C,$7E 






DB 


$7E,$E7 




HARFR2 


DB 


8,8 


jfront view #2 




DB 


$42 ,$24 






DB 


$3C,$23 






DB 


$3C,$18 






DB 


$3C,$7E 






D8 


$7E,$E7 




HARDN1 


DB 


8,8 


;down view #1 




DB 


$44, $24 






DB 


$3C,$14 






DB 


$3C,$18 







DB 


$3C,$7E 






DB 


$FE,$87 




HARDN2 


DB 


8,8 
$22, $24 


down view #2 




DB 






DB 


$3C,$23 






DB 


$3C,$18 






DB 


$3C,$7E 






DB 


$7F,$E8 




HARUP1 


DB 


8,8 
$44, $24 


up view #1 




DB 






DB 


$3C,$3C 






DB 


$3C,$18 






DB 


$3C, $66 






DB 


$FE,$87 




HARUP2 


DB 


8.8 
$22, $24 


up view 42 




DB 






DB 


$3C,$3C 






DB 


$3C,$18 






DB 


$3C,$66 






DB 


$7F,$E8 






DB 


8,8 




PK1 


DU 


HARRT1 


rabbit pictures set 1 




DU 


HARRT1 






DU 


HARRT1 






m 


8 






DU 


HARLF1 






DU 


HARLF1 






DU 


HARLF1 






DU 


8 






DU 


HARDN1 






DU 


HARUPi 






DU 


HARFR1 




PK2 


DU 


HARRT2 


rabbit pictures set 2 




DU 


HARRT2 






DU 


HARRT2 






DU 


8 






m 


HARLF2 






DU 


HARLF2 






DU 


HARLF2 






DU 


8 






DU 


HARDN2 






DU 


HARUP2 






DU 


HARFR2 




CTBL 


DB 


$18, $58 


color offset table 




DB 


$98 




METRO 


DB 


38,41 


tictoc tones 


STBLX 


DB 


$8i,$FF 


Joystick X increments 




DB 


$88 ,$88 




STBLY 


DB 


$88, $88 


joystick Y increments 




DB 


$81,$FF 




i 


'Jar 


able Storage 


Area 


HARX 


DS 


j 


Harvey's X locatin 


HARY 


DS 


i 


Harvey's Y location 


BYLOC 


DS 


2 


horizontal wall Y locations 


BXLOC 


DS 


2 


vertical wall X locations 


V0L1 


DS 


1 


tictoc volune 


YOL2 


DS 


1 


shuffle volume 


FREQ3 


DS 


1 


shot frequency 


NSOUND 


DS 


1 


pick number up sound 


T1CT0C 


DS 


1 


tictoc sound counter 


TIM2ST 


DS 


1 


wall speed timer 


U1NC 


DS 


4 


wall mover counters 


STRI6F 


DS 


1 


trigger compare reqister 


XTEMP 


DS 


1 


temporary variable" 


YTEMP 


DS 


1 


temporary variable 


P8PLT 


DS 


1 


player 8 collision shadow 
PL to PF collision shadow 


P8PFT 


DS 


1 


VTBL 


DS 


3 


value of #'s on screen 


ATBL 


DS 


3 


screen offset to #'s 


SHOTS 


DS 


1 


shot enable counter 
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LIVES DS 


1 


DIESU DS 


1 


SHOTX DS 


4 


SHOTY DS 


4 


31NCX DS 


4 


3INCY DS 


4 


DI3P DS 


289 
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; number of lives left 
jrabbit dying switch 
;missile X location 
jmissile Y location 
;missile X increment 
;missile Y increment 
; screen display area 



END 



HMWEY 



Cube Demo 



5 REM *** CUBE "FILL 1 GRAPHICS DEMO ** 

tt 

18 GRAPHICS 7+16:SETC0L0R B,8,12:SETC8 
LOR 1,3,2:SETC0L0R 2,7,4:HUE=1 
28 FOR CUBE-1 TO 15 :RAND=RND (8) :MAX=15 
+15*RAND : MIN=5+5*RAND ! PX=2+RND C8)*116 : 
PY=2+RND18)#52:REM *** 15 CUBES *** 
38 X1=PX+MIN : X2rpx+MAX : X3=X2+MIN : Y1=PY 
+MIN:Y2=PY+MAX:Y3-Y2+MIN:REM **# CUBE 
COORDS *** 

35 COLOR 8:PL0T X3+1 , Y3+1 :DRAMTO X3+1, 
Yl:DRAHTO X2,PY-l:DRAMT0 PX~1,PY-1 

36 DRAMTO PX~1,Y2 : DRAMTO XI, Y3+1 : DRAMT 
X3+1,Y3+1 

48 FOR N=l TO MIN:PLOT PX + N, PY+H : DRAWT 
X2+N,PY+N:PL0T PH + N , PY+H : DRflWTO PX+N 

Y2 + N S NEXT H 
58 FOR N=l TO MAX+l:PLOT XI, Yl+H.-DRAHT 
X3,Y1+N:NEXT H:REM **# 35-58 ERA5E C 
UBE AREA *** 
55 REM *** NOH DRAM * FILL CUBE SIDES 

****** 
KJIJI 

68 COLOR HUE:PL0T X3,Y3:DRAMT0 X3,Y1:D 

RAMTO XI, Yl: POSITION X1,Y3:P0KE 765, HU 

E:XIO 18,K6,8,8,"S:":G0SUB 288 

78 COLOR HUE: PLOT X3,Y1:DRAMT0 X2,PY:D 

RAMTO PX,PY:POSITIOH Xl,Yl:POKE 765, HU 

E:XIO 18,tt6 J 8,e, M S:":G0SUB 288 

88 COLOR HUE:PLOT Xl,Y3:DRAMTO X1,Y1:D 

RAMTO PX,PY:POSITIOM PX,Y2:P0KE 765, HU 

E:XIO 18 tt6 8 8 "S:" 

98 PLOT HI, Y3:DRAWTQ X1,Y2:DRAMT0 PX.Y 

2:P0SITI0M Xl,Y3:XIO 18,tt6,8,8, ,, S:":HE 

XT CUBE 

188 REM *** ROTATE COLORS A MHILE **# 

118 FOR ROT=l TO 588 : T=PEEK C788) : POKE 

788, PEEK C789J : POKE 789, PEEK C718J ! POKE 

718, T 

128 F8R DELAY=1 TO 28: NEXT DELAY: HEXT 

ROT: RUN :REM **» DO IT AGAIN! *** 

288 HUE=HUE+1:IF HUE = 4 THEN HUE=1 

218 RETURN 



CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 991,794,593,376,682,878.339,414 

,68,955,188,752,929,982,845,9618 

128 DATA 3,319,586,988 
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FILL ER UP II 



16K Cassette 24K Disk 



by Tom Hudson 



If you've ever typed in a game program from a 
computer magazine hoping for an arcade-quality 
masterpiece, you've probably been disappointed. 
Games written in BASIC are usually too slow to 
handle the complex graphics and game logic neces- 
sary for an entertaining arcade-style game. In an 
effort to satisfy those avid video-gamers out there, I 
have written Fill 'Er Up!, a public-domain assembly- 
language game. 

Typing the program. 

Before tackling the program listings accompany- 
ing this article, let's look at them and see what they 
do. 

Listing 1 is the main data and data checking 
routine. This listing is used to create both tape and 
disk versions of Fill 'Er Up. The data that makes up 
the Fill 'Er Up program listed in hexadecimal (base 
16). The program is listed this way so that it will run 
with 16K cassette systems. I realize that those DATA 
statements aren't fun to type in, but they are a neces- 
sary evil. 

Listing 2 should be added to Listing 1 if you are 
using an ATARI cassette recorder. 

Listing 3 should be added to Listing 1 if you are 
using a disk drive. 

Listing 4 is the assembly-language source code 
for Fill 'Er Up, created with the ATARI Macro 
Assembler editor. You DO NOT have to type in this 
listing to play the game! It is provided so that readers 
interested in assembly language can see how the pro- 
gram works. 

Follow the instructions to make either a cassette 
or disk version of Fill 'Er Up. 

Cassette instructions. 
1 . Type Listing 1 into your computer. Use the 
CCHECK program to check the accuracy of 
your typing. 



2. With Listing 1 in your computer, type in List- 
ing 2. This operation will merge the two listings. 
Make sure the lines were entered correctly, then 
CSAVE the new program. 

3. Type RUN and press RETURN. The program 
will begin printing the line numbers of the DATA 
statements as it reads and checks each one. It will 
alert you if it finds any problems in the DATA. 
Correct any problems in the data lines and re- 
RUN the program until all the DATA is checked 
and correct. 

4. When all the data lines are correct, the program 
will ask you to "READY CASSETTE AND 
PRESS RETURN." Place a blank tape in your 
recorder, press RECORD and PLAY simultane- 
ously and press ready. When finished, the 
BASIC "READY" prompt will appear. If you 
have not CSAVEd the BASIC program, do so at 
this point. You may not need this program again, 
but it's good to have if you ever need another 
copy of the game. 

5. To play Fill 'Er Up, rewind the tape created by 
the BASIC program to the beginning. Turn your 
computer OFF and remove any cartridges. Press 
computer OFF and remove any cartridges. Press 
PLAY on the recorder, then turn your computer 
ON while pressing the START key. The com- 
puter will BEEP once. Press RETURN, and Fill 
'Er Up will load and run automatically. 

Disk instructions. 

1 . Type Listing 1 into your computer. Use 
D:CHECK to verify your typing. 

2. After Listing 1 is correctly typed into your 
computer, type in Listing 3. The lines will auto- 
matically merge with Listing 1 . It's a good idea to 
SAVE the whole BASIC program at this time. 
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3. Type RUN and press RETURN. The program 
will begin verifying the DATA lines, printing the 
line numbers as it checks each one. It will alert 
you if any errors are located in the data. Fix any 
incorrect lines and re-RUN the program until all 
errors are eliminated. 

4. When all the DATA lines are checked, the 
program will tell you to "INSERT DISK WITH 
DOS, PRESS RETURN." Place a disk with DOS 

in drive 1 and press RETURN . The program will 
write an AUTORUN.SYS file to your disk. This 
file contains the Fill 'Er Up game. When finished, 
the BASIC "READY" prompt will appear. Make 
sure the BASIC program has been SAVED before 
continuing. 

5 . To play Fill 'Er Up, place the disk containing the 
AUTORUN.SYS file in drive 1. Turn the com- 
puter OFF, remove any cartridges and turn the 
computer back ON. Fill 'Er Up will load and run 
automatically. 

Game description. 

You have been assigned to build a series of water 
reservoirs in uncharted territory. Unfortunately, an 
electrified starfish (don't boggle; read on) is patroll- 
ing the area. Using your joystick, you must 
manuever yourself around on the screen, building 
walls to hold the water, while avoiding the starfish. 

You start out on the white border surrounding the 
planned resevoir area. You may move around on 
these white walls by moving your joystick in the 
desired direction. You can build a reservoir wall by 
moving into the black "uncharted" area while 
pressing your joystick button. The walls you make 
can be any length, and must be terminated at a white 
wall. When you finish a wall by hitting a white wall, 
the area you have enclosed will fill with water. Do 
NOT run into the wall you are building or you will 
be destroyed. If the starfish hits you or any part of 
the wall you are building before you complete it, you 
will be destroyed. On levels 1,2,4,7,12 and 13 you 
will be safe from attack when standing on a white 
wall, but on other levels the starfish can destroy you 
on contact at any time! 

If you do not complete the levels in a certain time 
period, electrified sea urchins will begin appearing 
on the white walls, moving along it looking for YOU! 
These creatures prove fatal on contact, but they can 
be destroyed by trappping them inside a completed 
resevoir. The sea urchins have no sense of fair play, 
and will "gang up" against you whenever possible. 

At the bottom of the screen are several informa- 
tion displays. "TGT" indicates the TARGET area 
you must fill with water before you complete the 
level. "CUR" indicates the CURRENT area you 
have filled. Once CUR reaches TGT, you have com- 
pleted the level and are awarded points. SCORE 
indicates the number of points you have gained. At 
the end of each level, the computer will give you 2 



points for each unit over the target you have filled. If 
the TARGET amount is 8000 and you fill 9000 
units, you receive 2000 points. "Fill'ErUp"may be 
paused at any time by pressing the space bar. 

This game contains 16 levels of difficulty. The 
level number is shown in the lower left corner of the 
screen. 

You have three lives, shown in the lower right 
corner of the screen. Good luck! □ 



1 REM *** FILL 'ER UP! II **# 

18 DATA 8,1,2,3*4,5,6,7,8,9,8,8,8,8,6, 

6,8,18,11,12,13,14,15 

28 DIM DAT$(91J ,HEXC22) :F0R X = TO 22: 

READ N:HEXfX)=N:NEXT X : LINE=998 ; RE5T0R 

E 1088 STRAP 68:? "CHECKING DATA" 

25 l.INE = LINE + 18:? "LINE :"; LIKE : READ DA 

T$:IF LENCDAT$1<>90 THEN 118 

28 DATLIN=PEEKC183)*PEEK(184}*256:IF D 

ATLINOLINE THEN ? "LINE ":LINE;" MISS 

ING!":END 

38 FOR X = i T8 89 STEP 2 i D1=A5C (DATS (X , 

X>)-48;D2=ASCtDAT$(H+l,X+l))-48:BYTE=H 

EXCD1J*16+HEXCD2) 

35 IF PAS5=2 THEN PUT ttl,BYTE:NEXT X:R 

EAD CHKSUM:G0T0 25 

48 T8TAL=T0TAL+BYTE:NEXT X:READ CHK5UM 

:IF T0TAL=CHKSUM THEN 25 

58 G8T0 118 

68 IF PEEKfl95)<>6 THEN 118 

188 ? "WRITING FILE":PASS=2:LINE=998:R 

EST0RE 1808:TRAP 68.G0T0 25 

118 ? "BAD DATA: LINE ";LINE:END 

1888 DATA A9258581A9148592A980858O8591 

00898 1809 191E680E691D804E681E692A592C9 

23DOECA591C909D0E64C2D14,6169 

1818 DATA A96O8D2F028D1DD08DC862A9748D 

C482A9C48DC502A90A8DC682A9348DC782A9F7 

8D3882A9208D3 1 82 A92E8D2F, 11864 

1820 DATA 02A9838D1DD84C28192865E4A988 

A27F9580CA18FB8D1422801522SD16228D1722 

A9118D6F82A9818DAC228DC4, 15482 

1030 DATA 22202F15A9408D6722A9888D6822 

A9O8A2049D192i9D2421CA18F7A2059D3521CA 

18FAA9008DC42285898DC622, 28133 

1848 DATA 8D1ED08D2F028D8ED48D2822858A 

8DO8D2A2O5901D22CA18FA8D2622A9838D2C22 

09908D3C21A90A8DC482A924, 24483 

1058 DATA 8DC582A99480C602A9C48DC702A9 

0O8DC8O2A9768DC102A93F80C2828DC302A934 

8DC882A9928D3882A9208D31, 29683 

1060 DATA 82A88AA21FA986205CE4A9108D87 

D4A92E8D2FG2A9038D1DD8A9408D8ED44C9615 

A900A27F9D88119D88129D3O, 34142 

1870 DATA 129D08139D8813CAD0EE60A5838A 

8588A98O8581868826818680A58885842681A5 

8185850688268106802 681 A5, 3886 9 

1880 DATA 881865848588A58165858581A988 

1865888580A93O65818581A5822983AAA5824A 

4A1865888588A581 69008581, 43824 

1090 DATA 6OA2088682A2088683204615A683 

A980A82791888818FBE8E056D0EBA9838DA622 

AEA622BD9 222858280962285,49247 

1100 DATA 83BD9A228DA722BD9E228DA822BD 

A2228DA9222O4615BD7E22AO0O1188918OA582 

186DA7228582A583186DA822, 54123 

1110 DATA 8583CEA922D0DFCEA6221OBBA95O 

858BA954858CAD26221869018D2922A9888D14 

228015228D16228D17228D24, 58606 

1120 DATA 228D25228D2A22A9FF8D23222849 

1AADFA22O99O8D2C21ADF922O9908D2D21AE26 

22BDA1218D2922BDB1218D2A, 62917 

1138 DATA 22BDC1218D7D22BDE12185958594 

A9848D232220491AA9O08DAC22AA9D89239D09 

24CAD8F78DD0228DCF22AD27, 67913 

1140 DATA 22D0FBA9FD8D00D2A9FE8D82D2A9 

FF8DO4D2A9A38D81D28D03D28D65D2A9OO854D 

A58ADO23A589F022AE2622BD, 74064 

1150 DATA D121D017A58B8582A58C85832046 

15A000BD8A223180DD7E22F0034CD118A587F8 

064C9C1A4C7416A3848587 AD, 79859 
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1160 DATA 78028DC822AABDD122187DD12285 

8DBDE122187DE122858E058DF0DCA58B18658D 

8DAD22C99FB0D0858238FDD1, 85804 

1170 DATA 228DAA22A58C18658E8DAE22C955 

B0BB858338FDE1228DAB222O4615A00OBD8A22 

31808DCD228ECE22ADAA2285, 90224 

1180 DATA 82ADAB228583284615A008BD8A22 

318048 AD8402DO8668D01E4C641768DD7E22D0 

15ADCD22AECE22DD7E22D00A . 9589© 

1190 DATA ADAD22858BADAE22858C4C7416AD 

CF22D02 78DD022ADC8228D0923A9018DCF228D 

2822A58B8DAF2280B1228DB3, 108339 

1200 DATA 22A58C8DB0228DB2228DB422ADCD 

22AECE22DD8222D0034CD118AED022ADC822DD 

0923F00CEED022E89D0923A9, 105890 

1210 DATA O09D0924FEO924A9038DA922A58B 

8582A58C8583204615A008B1883D8E221D8222 

9180CEA922F019ACDO22BE09, 110621 

1220 DATA 23BDD1221865828582BDE1221865 

8385834CC517A582858BCDB3229e068DB32Z4C 

8918CDB122B0838DB122A583, 115711 

1230 DATA 858CCDB42290O68DB4224C2018CD 

B222B8038DB222AECE22ADCD22DD7E22FO034C 

7416A90O8DCF222OF81BAD24, 12072O 

1240 DATA 228D2922AD25228D2A22A90F8D23 

2228491 AA9018DC92228B219AE2622AD242238 

FDA1218D2922AD2522FDB121, 124652 

1250 DATA 8D2A2218834C5F16AD2622C90FF0 

03EE26220E29222E2A22A9FF8D232228491AA2 

05AOO8B9F922187D1D22C90A,128289 

1268 DATA 300C38E98A9D1D22FE1C224CA318 

9D1D22C8CA18E2A205BD1D2209D09D3521CA10 

F5A9O18DC4228DAC22202F15, 132641 

1270 DATA A9408D6722A9888D6822A9008DC4 

224C9615A9088D81D28D03D28D85D2A9018DC6 

22 A98F8DC722A9658588ADC7, 137662 

1280 DATA 228D01D2AD0AD2291F8D00D2AD8A 

D229F00DC7228DC5028DC102A588D0EOCEC722 

10D7CE2C22AD2C22099O8D3C, 142752 

1290 DATA 21C99OD025A93D8DEF28A9218DF8 

2OAD1FD02 901D0F9AD1FD82901F0F9A9158DEF 

28A9218DF0204C6314A9818D, 148289 

1300 DATA AC22AD0AD229FEC99FB0F78582AD 

OAD2297EC955BOF78583204615A000BD8A2231 

88DD7E22D8DB202F15A58285, 153839 

1310 DATA 8BA583858CA9008DC922AD2822F0 

1C28B219ADAF228582ADB8228583204615A00O 

BD8E2231801D7E229188A924, 158626 

1328 DATA 8DC582A9008DC6228D1ED8858985 

8A4C5F16ADAF228DB522ADB8228DB622A90O8D 

B722AEB722BD09238DCA22BD, 163816 

1330 DATA 09248DCB22A9018DB822A9638DCC 

22ADB5228582ADB6228583204615AO00ADC922 

DO10BD8E22318091804C0A1 A, 168465 

1340 DATA A9888DCF2268BD8E2231801D7E22 

9180CECC22F01AAECA22ADB522187DD1228DB5 

22 ADB622187DE1228DB6224C. 173682 

1350 DATA DC19EEB822ADB822CDCB22F802B8 

O34CD719EEB722ADB72 2CDD022F002B0B44CC3 

19A264A96B9DF922CA10FAA2, 179464 

1360 DATA 04AD2A22DDFF22F0O4B0189008AD 

2922DDO423B006CA10E94C881AAD292238FD04 

238D2922AD2A22FDFF228D2 A, 183988 

1378 DATA 22FEF9224C551AA284AC232230OC 

BDF92209D0991521C8CA10F468A586F0034C9F 

IB AD7D 228586 AD672238E98D, 188874 

1380 DATA 8D6A22AD682238E92C8D6922AD8A 

D2C9F890G8AD0AD229074CCC1AAD6C22AA8D6B 

22AD6922187D6D228582AD6A,193725 

1398 DATA 22187D75228583284615A8O0BD8A 

22318OF0C7A90F8DC122DOCCA58218692C8D68 

22A58318690D8D6722AD6B22, 198132 

1488 DATA 8D6C22A9838596A696BD1422F028 

BD8C228582BD1 8228583 204615A888BD8A2231 

8ODD7E22F00EA696A9O09D14, 20282O 

1410 DATA 22C69610D54C9F1BA9038DC322A6 

96BD18228597A696A49 7BD8C2218790422C99F 

B81E8582BD10221879O822C9, 207587 

1420 DATA 55B0118583284615A008BD8A2231 

89DD7E22F015CEC32230B4AEC322A597187DO1 

22290385974C491BA696A582, 212273 

1430 DATA 9D0C22A5839D1822A5979D18224C 

361BA594F0O34C7416A5958594A283BD1422F0 

06CA18F84C74168698AD6AD2, 217045 

1448 DATA C9AOB0F98582AD0AD2297FC955B8 

F78583284615A800BD8A223188DD7E22D0DDA6 

98A5829D0C22A5839D1822 AD, 222751 



1450 DATA 0AD229039D1822A9019D14224C74 

16A9818DC422A9888DC822AD682238E92C8DB9 

22AD672238E30D8DBA22AEC8, 227245 

1460 DATA 22ADB922187DF1228DB9228582AD 

BA22187DF5228DBA228583204615A000B1803D 

8A22DD7E22F00DDD8222D0D1, 232421 

1470 DATA A9008DBF224C731CADC8228DBF22 

29521D20FC1CDD7E22D08620331D4C4B1CDD82 

22D0O62O331D4CB91C20461D, 236412 

1488 DATA 4C541CA9888DC32220521D28FC1C 

DD8222D00628331D4C731CADC3221869818DC3 

22C983F00620461D4C7B1CAD, 240487 

1498 DATA C0228DBF2228521D2OFC1CDD7E22 

D0862O331D4C4B1C20461D4CA51C285E1DA988 

8DC32220FC1CDD7E22D0O62O, 244373 

1500 DATA 331D4C891CADC3221869018DC322 

C904F00620461D4CC11C20171DDD8222D0O928 

9E1DA90O8DC4226020461D20, 248227 

1510 DATA FC1C4CE51CAEBF22ADB922187DF1 

228DBB228582ADBA22187DF5228DBC228583A5 

82C99FB811A583C955B0OB20, 253777 

1520 DATA 4615AOO0B1803D8A2260A900A280 

60ADBF228DC822ADBB228DB922ADBC228DBA22 

60ADBF2218698129O38DBF22, 258398 

1530 DATA 6OADBF2238E90129038DBF2268AD 

B9228582CDB32290888DB3224C761DCD8122B8 

838DB122ADBA228583CDB422, 263511 

1548 DATA 98O68DB4224C8E1DCDB222B8038D 

B22 2284615 A800BD8E223188Lr;8222918860A9 

808D83D28DO5D2ADB42238ED, 268158 

1558 DATA B2228DC222ADB12238E9018DB122 

8DBD22ADB2228DBE2238E9018DB222ADB32218 

69818DB322ADB4221869818D, 273850 

1560 DATA B422A90O8D2B22A9008DC5222O54 

1EC982DOF9EEC52220541EC902F0F62901D0E6 

ADC522C901F8O52OE81EF8DA. 278385 

1578 DATA ADBD228582ADBE228583284615A8 

00B1881D8e229188EE2B2220541EC980F0E029 

01D0B6A9O18DC52220541EC9, 283218 

1588 DATA 0OF0OA2901D0A6EEC5224C2E1EAD 

C522C901DO034CDF1D2OE81EDD8A22FOB44CDF 

ID ADBD221869018DBD22CDB3, 288351 

1590 DATA 22D050AD2422186D2B228D2422AD 

252269808D2522A90O8D2B22ADB1228DBD22A9 

008DC522A9868D81D2ADC222, 292636 

1600 DATA 8D00D2FO83CEC222ADBE22186901 

8DBE22CDB422F80DADBD22CDB122D00868684C 

DF1D686860ADBD228582ADBE, 298112 

1618 DATA 228583284615AO0OBD8A223180DD 

8222DO0DBD8A22118O9188EE2B22A9026ODD7E 

22D003A9016OC90OD00160A9, 302731 

1620 DATA 0360ADBD228582ADBE2238E981CD 

B222F00D8583204615A08OBD8A22318O6OA900 

A2O06OADFC02C921DOODA9FF, 307760 

1630 DATA 8DFC02AD272249FF8D2722AD2722 

F0034C5FE4ADC122300D89A88D87D2A9888D86 

D2CEC122A588F002C688A594, 313096 

1640 DATA F006C693D002C694ADC422F8634C 

5FE4A9808589858AAD8DD0298CF802E68AAD6D 

D02901FO02E683AD84D02902, 318528 

1650 DATA FO02E6898D1ED0A587F0O2C687A5 

86F802C686AD6522FOO6CE65224C9F1FA9018D 

6522AD66221869O1C907DOO2, 323728 

1660 DATA A9808D6622AC6622AE6722A9B89D 

FF119D0812B92D229D0012B934229DO112B93B 

229D0212B942223D0312B949, 327636 

1670 DATA 229D0412B950229D0512B957229D 

O612B95E229D0712AD68228D80D0ADAC22DO31 

A58B18632F8D01DOA58C1869, 331870 

1680 DATA 10AAA90O9D7D129D7E129D82129D 

8312A9403D7F129D8112A9A89D8812ADC622DO 

O3EEC102E690A59O4A2901A8, 336924 

1690 DATA B9FF21859AA5902981A8A9138532 

A9888591A981858FB9F1218599A980A68FBCF3 

21 A2849131C8CA18FAA699BD, 34301O 

1700 DATA 1422F027BDOC22BC1O2218692EA6 

8F9D82D0981869OE9DF321A8A69AA984859BBD 

F5219191C8CAC69B18F5C68F, 348458 

1710 DATA 3812A59138E9888591A592E98085 

92E6994C3C204C5FE47070704D0O300D0D0D8D 

0D0DOD0D0D0D0D0DOD0D0DOD, 351971 

1720 DATA OD0DOD0D0D0D0D8D0D0D0D0D0D0D 

0D0D8D8D0DOD0D0D0D0D0D0D8D0D0D9D0D0D0D 

0D0D0D0D0D0D0D0D0D0DOD0D, 352556 

1730 DATA OD0D8D0D8DOD0D8DOD0D8D0D0D0D 

0D0D0D0D0DOD8D8D8D8D284615214623214192 

207070707070707070703046,354537 
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1740 DATA 5121784765213046792170783846 

8D2141F72e3427341A6888B6000006ee233532 

lA8O6O8806682C36ia866868, 356557 

1758 DATA 33232F32251A8O80880808e8888e 

000000000027212D256O882F36253280088800 

088088212E212C2F27OO232F, 357469 

1760 DATA 2D3O3534292E27O008OO80886669 

6C6C47657288757841886969e00008688800A2 

B9O080B4AFAD0OA8B5A4B3AF, 368748 

1778 DATA AE8888888O888O80FeF2E5F3F3eO 

00F3F4E1F2F4000008804818E828F8D41804F8 

E8D4E844A876D41F272E232A, 365882 

1788 DATA 3827292A2E3O2E2F2F3038648484 

63836382826282828181818161680001088161 

086161010100086181818767, 366362 

1798 DATA 8786868685858584846483630281 

00828e8088582058882828F8282O0489FF8281 

8S8188FFFF88818688086886, 368048 

1888 DATA 6886680808080000608600086086 

88800060008860680000000000008081482016 

08O4O242432010O884C22424, 368762 

1810 DATA 131068C82418181C1FF838181818 

38F81F1C182424C88818132442C28468182043 

816264681020408880000000, 370984 

1828 DATA eeO008010188FFFFFF0O81000101 

0001FFFFFF84481OO401882O08O2C030OC03CO 

3O0CO33FCFF3FCO09E9EOO0O, 374290 

1830 DATA 885454818OFF0OOO0100FF9F559F 

55806000006886860006800000000060888088 

866660006006000000000800,375458 

1840 DATA 0880000008886888888680888888 

68e68860000001888060FF00006006688808e8 

0e80888000O00008eeOlFFOe, 375978 

1856 DATA 600188FFFF886186808eee800088 

08808O0327818A64E8168800000O00O6000008 

088606000086000000000000,376883 



CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 338,955,686,427,745,192,617,894 

,445,496,549,158,852,324,184,7774 

1838 DATA 121,368,374,344,911,989,145, 

258,276,448,489,547,287,532,414,6343 

1188 DATA 279,391,348,36,11,311,87,57, 

219,152 , 322 , 325 , 387 , 110 , 337 , 3364 

1330 DATA 73,335,489,357,275,510,28,43 

,154,25,103,247,143,113,166,2981 

I486 DATA 95,148,78,465,277,253,135,23 

3,149,39,562,34,388,935,96,3811 

1638 DATA 388,427,177,66,282,175,222,3 

33,51,439,886,288,233,664,863,5246 

1780 DATA 88,295,856,546,765,47,848,8, 

3445 



2 REM *** DISK VERSION *** 

65 IF PASS=2 THEN PUT ttl,224:PUT ttl,2: 

PUT ttl,225:PUT 1*1,2: PUT 1*1, 8: PUT 1*1,37 

: CLOSE ttUEND 

78 ? "INSERT DISK WITH DOS, PRESS RETU 

RN";:DIM INS (1) : INPUT INS:OPEN 1*1,8,8, 

"DlAUTORUN.SYS" 

96 PUT ttl, 255JPUT ttl,255:PUT tti,8:PUT 

«1,37:PUT «1,29:PUT ttl , 52 



Assembly listing. 



;F!LL 'E8 UP' ii 

•BY m HUDSON 
i 

•ALPHABETIC CONSTANTS 



ca 


- 


'A' -$28 


CB 


- 


'6' -$28 


cc 


- 


'C'-$28 


CD 


- 


D'-$20 


CE 


- 


E'-*29 


CF 


- 


•F'-S2« 


CG 


- 


'G'-$28 


CH 


= 


'H'-$28 


CI 


s 


'['-$29 


CJ 


- 


'J'-$2fl 


CH 


- 


K'-$20 


CL 


- 


- ! • -$28 


CM 


= 


H'-$20 


CN 


= 


'N'-$2§ 


CO 


= 


'0'-$28 


CP 


5 


'P- -426 


CQ 


= 


■Q'-$20 


CR 


- 


'R'-42« 


cs 


a 


'S' -$26 


L t 


- 


'T'-$26 


CO 


- 


U'-$20 


H ! 


- 


-y-$2e 


cw 


- 


'W'-$28 


C" 


2 


'X -$28 


CY 


s 


'Y'-$20 


\*L 


- 


■r -$20 


CCOL 


a 


!'-$2fl 



;P«GE ZERO HEMS 



2 REM *** CASSETTE VERSION *** 

65 IF PASS=2 THEN CLOSE ttl: END 

76 ? "READY CASSETTE AND PRESS RETURN" 

;:0PEN m,8,128,"C;":REST0RE 20O:FOR H 

=1 TO 35:READ N:PUT ttl, N: NEXT X 

200 DATA 0,31,221.19,255,19,169,68,141 

,2,211,169,0,141,231,2,133,14,169.56.1 

41,232,2,133,15,169,45 

210 DATA 133,10,169,28,133,11,24,96 

I860 DATA 8800806088000086086800060000 

00006080000080000800600668888600688088 

800006800000008000000000,376883 

1878 DATA 6888080000000080000060888688 

88800068886808880800000000000000086000 

008886888688000000008800,376883 



ORG $86 



HI 



PLOTK 


LiS 1 


PLOTY 


OS 1 


LUHLE) 


DS I 


HIHLD 


OS I 


SHT1M 


DS 1 


hWTIH 


OS i 


TIMER 


DS 1 


QEAOFG OS i 


HSHORT 


DS 1 


PX 


OS 1 


PY 


DS 1 


xi 


OS I 


YI 


DS ; 
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DESTHI OS 


1 




SHFLIP DS 


i 




DESTLQ DS 


l 




DESTHI DS 


i 




3HTIM1 DS 


J 




SHTIM2 DS 


i 




SHTINI OS 


l 




SHORTN DS 


l 




DIRSftU DS 


i 




HOLDSx DS 


i 




UBXHLD DS 


i 




CPYST DS 


i 




CPYCNT DS 


i 




^MISCELLANEOUS HEMORY USAGE 




torn = 


$1108 




M1SSLS = 


PMAREA+384 




PL8 


PNAREA+512 




PL! = 


PMAREA+64B 




PL2 = 


PHAREA+768 




PL3 = 


PMAREA*89d 




D1SP = 


$3188 




•SYSTEM EQUATES 




KEY 


*2FC 




r-fiKje-fii - 


•AftfC 




UUtw ut. " 




PMBASE = 


$048? 




random = 


SO20A 




SE7VBU = 


$E45C 




XITVSW = 


$E45F 




COLBK = 


$2C8 




COLPFB = 


$2C4 




CULPFI = 


$2C5 




C0LPF2 = 


\IU 




C0LPF3 = 


$2C7 




AUDC1 = 


5028 J 




AUDC2 = 


10283 




AUDC3 = 


$0265 




AUDC4 = 


$D28? 




AODFi = 


$0288 




AUDF2 = 


$0282 




AUDF3 = 


$0284 




AUDF4 = 


$0284 




AUOCTL = 


SD26S 




PRIOR = 


$826f 




attrac = 


$40 




omactl = 


$22F 




DLISTL = 


$238 




URACTL = 


$08 10 




NMIEN = 


$D4«E 




C0LPM8 = 


$2C8 




COLPM1 = 


$2Cl 




CCLPH2 = 


$2C2 




C0LPM3 = 


$2C? 




HP0SP8 = 


$0886 




HP0SP3 = 


$088! 




HP0SP2 = 


$0882 




HITCLK = 


$D8iE 




P8PF = 


$0804 




PI PL = 


$0880 




STICK = 


$2?S 




STR16 = 


$284 




QR£ 


%b%m 


[ASSEMBLE ADDR 


LOC 


$1488 


jACTUAL ADORES 



STA 
STA 
LDY 

COPYLP LDA 
STA 
INC 
INC 
BNE 
INC 
INC 

INCEND LDA 
CHP 
BNE 
IDA 
CMP 
BNE 
JNP 



OESTLO 

#6 

'..L0;,Y 

(OESTLO) ,Y 

LO 

OESTLO 

INCEND 

HI 

OESTHI 

DESTHI 

8DIR/256 

COPYLP 

OESTLO 

BDIR&255 

COPYLP 

F1LLUP 



iMEMORY LOCATION 
;0F $1488. 



;MA!N PROGRAM STARTS HERE 



-.RELOCATE PROGRAM (DISK VERSION ONLY) 



MOVERS LDA 8$25 

STA Hi 
LDA 8$ 14 
STA DESTHI 
LDA t(8 



iFOR DISK ONLY. 
;THIS SECTION 
;MOVES THE 
; PROGRAM TO 
; ITS OPERATIONAL 



FILLOP LDA t$88 


TURN OFF... 


STA OMACTL 


DMA 


STA URACTL 


GRAPHICS 


STA COLBK 


BLACK BACKGND 


LDA #$?4 


BLUE 


STfi C0LPF8 


COLORd 


LDA 8$C4 


GREEN 


STfi C0LPF1 


COLOR! 


LDA 8$8A 


WHITE 


STa C0LPF2 


C0L0R2 


LDA S$34 


RED 


STA C0LPF3 


COLORS 


LDA 8TITIDL&255 


SETUP... 


STA DLISTL 


TITLE... 


LDA 8TITLDL/2&S 


DISPLAY... 


STA DLISTL-*! 


LIST 1 


LDA *$2E 


TURN ON... 


STA DMACTL 


DMA 


LDA #3 


TURN ON... 


STA G8ACTL 


GRAPHICS 


JMP CKSTRT 


WAIT FOR START 


START JSR $E465 


INIT SOUNDS 


lda m 


CLEAR OUT 


m #127 


ALL ZERO PAGE 


CLP68 STA $38, >' 


USER MEMORY- 


DEX 




BPL CLP68 




STA SHORTF 


STOP SHORTS 


STA SHORTF+! 




SIA SHORTF +2 




STA SHORTF+3 




LDA #$11 


P/M PRIORITY 


STA PRIOR 




LDs fti 


DON'T SHOW 


STA 3H00FF 


PLAYER OR STAR 


STA FILLON 


WE STILL MUST 


JSR PHCLR 


CLEAR P/M AREA 


LDA 864 


AND SET UP THE 


STA 5TRH6T 


STAR'S HEIGHT 


LDA 8128 


AND 


STA STRHOR 


HORIZONTAL POSITION 


lda mm 


NOW LET'S 


LDX M 


ZERO OUT 


ZSCLP STA SC0LIN44.X 


THE SCORE 


STA 3C0L!fH15,X 


AREAS! 


DEX 




SPL ZSCLP 




LDX 85 




ZSCLP2 STA SC0LN2+!2,X 




DEK 




BPL ZSCLP2 




LDA 88 


THESE ITEMS 


STA FILLON 


MUST BE SET 


STA DEADPG 


TO ZERO ON 
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THE A 


STA NOCCHG 


STARTUP OR 


STA HJTCLR 


ELSE WELL 


STA DHACTL 


WIND UP WITH 


STA mi EN 


NASTY THINGS 


STA HASORN 


HAPPENING' 


STA HSHORT 




STA AUDCTl 




LDX #5 


LET'S ZERO 


CM3LF STA SCORE ,X 


OUT THE SCORE 


DEX 


COUNTER.., 


BPL CMSLP 




STA LEVEL 


AND LEVEL •! 


LDA #3 


WE START WITH 


STA LIVES 


3 LIVES 


ora nn 


AND PUT THEM IN 


STA SC0LN2+19 


THE SCORE LINE 


LDA #$8A 


NEXT WE SET UP 


STA CGLPF6 


THE COLORS WE 


LDA »24 


want TO USE. 


STA C0LPF1 




LDA #*?4 




STA C0LPF2 




LDA #*C4 




STA C0LPF3 




LDA #8 




STA COLBK 




LDA #$76 




STA COLPfll 




LDA «3F 




STA C0LPH2 




STA CQLPM3 




LDA #434 




STA C0LPH6 




LDA U0LIST4255 


WE'D BETTER TELL 


STA DLI3TL 


THE COMPUTER WHERE 


LDA #DLI ST/256 


OUR DISPLAY LIST 


STA DLISTL+1 


IS LOCATED! 


LDY IJNTRPT&255 


TELL WHERE THE 


LDX #INTRPT/256 


VERTICAL BLANK 


LDA #6 


INTERRUPT IS 


JSR SETVBV 


AND SET IT' 


LDA ftPMAREA/256 


HERE'S OUR P/M 


STA PHBASE 


GRAPHICS AREA' 


LDA #S2E 


TURN ON THE 


STA DWCTL 


DMA CONTROL 


IDA #$3 


AND 


STA GRACTL 


GRAPHICS CONTROL! 


LDA #*48 


ENABLE VBI 


STA NMIEN 




JMP CLRDSF 




PMCLR LDA #8 


CLEAR OUT 


LDX #12? 


THE P/M AREA: 


PMICLR STA MISSL3.X 


MISSILES, 


STA PL8,X 


PLAYER 8, 


STA PLl.X 


PLAYER 1, 


STA PL2.X 


PLAYER 2, 
AND PLAYER 3! 


STA PL3,X 


DEX 




BNE PMICLR 


LOOP UNTIL DONE 


RETURN RTS 


WE'RE DONE 1 
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LDA HI 

STA HIHLD 

ASL LO 

ROL HI 

ASL LO 

ROL HI 

LDA LO 

CLC 

ADC LOHLD 

STA LO 

LDA HI 

ADC HIHLD 

STA HI 

LDA 8DISP&255 

CLC 

ADC LO 

STA LO 

LDA KDISP/256 

ADC HI 

STA HI 

LDA PLOTX 

AND #3 

TAX 

LDA PLOTX 

LSR A 

LSR A 

CLC 

ADC LO 

STA LO 

LDA HI 

ADC #8 

STA HI 

RTS 

;CLEAR THE DISPLAY MEMORY 

CLRDSF 



DL00P2 



LDX 
3TX 
LDX 
STX 
JSR 
LDX 
LDA 
LDY 
DL00P3 STA 
DEY 
3PL 
I NX 
CPX 
BNE 



M 

PLOTX 

m 

PLQTY 

PLOTCL 

PLOTY 

#*88 

#3? 

(LO),Y 

DL00P3 

#36 
DL00P2 



DRAW THE COLOR ! BORDER 



BORDER 



PLOT ADDRESS CALCULATOR 

MULTIPLY PLOTY BY 48, THEN CALCULATE ADDRESS 
OF THE SCREEN MEMORY TO BE ALTERED. 



PLOTCL LDA PLOTY 




ASL A 




STA LO 




LDA #8 




STA HI 


i*2 


ASL LO 




ROL HI 


;*4 


ASL LO 




LDA LO 




STA LOHLD 




ROL HI 


;*8 



DRAULN 



LDA 
STA 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
LDY 
ORA 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 



#3 

80RNUM 

30RNUM 

BXSTRT.X 

PLOTX 

BYSTRT.X 

PLOTY 

BXINC.X 

BDINCX 

BYINC.X 

3DINCY 

BORCNT.x 

BDCNT 

PLOTCL 

C0L0R1 ,X 

#6 

(LO),Y 

(LO).Y 

PLOTX 

BDINCX 

PLOTX 

PLOTY 



;*16 

;*32 



;+*3=*48 



:*0I SPLAY START 
;MA3K X POSITION 



;L0 it HI NOW HOLD 
;THE ADDRESS' 
(EXIT! 



THIS ROUTINE WILL 
CLEAR ?HE SCREEN RAM. 
IT GETS THE ADDRESS 
OF THE BEGINNING OF 
EACH SR.7 LINE 
THB^ ZEROES OUT 
EACH OF THE 
48 BYTES (1-3?) 
IN THE LINE. 



;THIS ROUTINE 
; DRAWS THE 4 LINES 
:THAT MAKE UP THE 
;WH1TE 6R.7 BORDER 
j ON THE SCREEN. 
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AOC BDINCY 
STA PLOTY 
DEC 80CNT 
SVE DRAWLN 
DEC 60RNLM 
BPL BORDER 

THIS SECTION STARTS OFF EACH LEVEL 



LOA 038 
STA PX 
LDA 884 
STA PY 
LDA LEVEL 
CLC 
ADC m 
STA LGUK 
LDA m 
STA SHORTF 
STA SHORTF-t l 
STA SHORTF < 2 
STA SHORTF+3 
STA CURLO 
STA CURHf 

STA Him. 

LDA WFF 
STA SLLOC 
JSR OWDEC 

LDA DECIMAL* 1 

ora nn 

STA SC0LN2+3 
LDA DECIMAL 
ORA 8398 
STA SC0LN2+4 
LDX LEVEL 
LDA TGTLO.X 
SI A im 
LDATGTH!,X 
STA mm 
LDA STARSP,X 
STA STRSPD 
LDA SHTIME.X 
STA SHTIHI 
STA 5HTIM2 
LDA 84 
STA SLLOC 
JSR CWDEC 



iPOSITION THE 
; PLAYER 



j INCREMENT THE 
; LEVEL NUMBER 



;2ER0 OUT 



CURRENT TALLY 
WORK AREA 

TELL DECIMAL CONVERTER 

NOT TO PLACE RESULT 

CONVERT LEVEL it 

GET DECIMAL LEVEL 8 

ADD COLOR 

PUT IN SCORE LINE 

SAME FOR 2ND 

LEVEL tt 

DIGIT 

GET THIS LEVEL'S 

PARAMETERS 



iSHOW TARGET AMOUNT 



CLEAR OUT THE TRACKING TABLE THAT 
REMEMBERS WHERE THE PLAYER HOMED 



CLRTRK LDA 80 




STA SHOOFF 




TAX 




CLRTLP STA 0!R,X 


CLEAR DIRECTION 


STA L6TH/X 


AND LENGTH ENTRIES 


DEX 




BNE CLRTLP 




STA MOVLX 


CLEAR MOVEMENT INDEX 


STA DRAWFG 


AND DRAW PLAG 


GETSTK LDA PAUSE 


GAME PAUSED? 


BNE GETSTK 


YES. LOOP AND WAIT, 


LDA «FD 


DO "WARBLE' SOUND 


STA AUDF1 


USING SOUND 


LDA #*FE 


CHANNELS 1-3 


STA AUDF2 




LDA Wc 




STA AUDF3 




LDA 8$A3 




STA AUDC2 




STA AUDC2 




STA AUDC3 




LDA 88 


NO ATTRACT MODE ( 


sta attrac 




LOA HSHORT 


DID SHORT HIT US? 


BNE JCRSH 


YES' WE'RE DEAD' 


LOA DEAOFG 


DID STAR HIT US' 



BED ALIVE 


NO' 


LDX LEVEL 


IT HIT US- 


LDA K1LLFS.X 


UNCONDITIONAL KILL-? 


BNE JCRSH 


YES' WE'RE DEAD 1 " 


LDA PX 


NG, IF WE'RE ON A 


STA PLOTX 


WHITE lINE « COLOR 1 


LDA PY 


THEN WE'RE AL1VE ! 


STA PLOTY 




JSR PLOTCL 




LDY 88 




LDA 6ITS0N,X 




AND (LO),Y 
CMP COLORl ,X 


ON COLOR i? 


BEQ ALIVE 


YES (WHEW) 


JCRSH JMP CRASH 


GO KILL PLAYER. 


ALIVE LDA MO/TIM 


PLAYER MOVING? 


BEG GOTSTK 


YES-GET STICK. 


JMP MOVSTR 


NO. MOVE STAR. 


JGSTK JMP GETSTK 


GO' GET STICK 


GOTSTK LDA 84 


SET UP THE 


STA M0VT1M 


MOVEMENT TIMER 


LDA STICK 


GET THE STICK 


STA STKHLD 


AND SAVE i T 


TAX 


THEN LOOK UP 


LDA XD,X 
CLC 
ADC XD,X 


X DIRECTION 




STA XI 


AND 


LDA YD,X 
CLC 
ADC YD,X 


Y DIRECTION 1 




STA YT 




ORA XI 


ANY MOVEMENT? 


BEQ J6STK 


NO, TRY AGAIN. 
INCREMENT 


LDA PX 


CLC 


PLAYER X 


ADC XI 


POSITION WD 


STA CKX 


HOLD IT... 


CMP til 5? 


OFFSCREEN' 7 


BCS JGSTK 


YES' 


STA PLOTX 
SEC 
SBC XO,X 


NO, SAVE IT 




STA PXWC 




LDA PY 


INCREMENT 


CLC 


PLAYER Y 


AOC YI 


POSITION AND 


STA CKY 


HOLD IT... 


CMP #35 


QFSCREEN? 


BCS JGSTK 


YES: 


STA PLOTY 


NO, SAVE IT 


SEC 




SBC Y9,X 




STA P'YWC 




JSR PLOTCL 


LOCATE NEW PLAYER 


LDY 88 


POSITION. 


LDA BITSON,X 




and ao>,Y 




STA CKV 


SAME THE LOCATE'. 


STX CKVX 




LDA PXWC 


CHECK THE 


STA PLOTX 


POSITION NEXT 


LDA PYWC 


TO THE ONE WE'RE 


STA PLOTY 


NOW IN... 


JSR PLOTCL 




LDY 88 




LDA BITSCM.X 




AND a0.i,Y 




PHA 


AND SAVE IT' 


LDA STRIG 


TRIGGER PRESSED-' 


BNE NOTDRN 


NO' 


PLA 


OK TO DRAW'-' 


BNE JGS 


N0 M 


JMP DRAW IN 


YES, GO DRAW. 


NOTDRN PLA 


NOT DRAWING-ARE WE 


CMP COLOR 1 ,X 


ON COLOR 1' 


BNE JGS 


NO, TRY AGAIN 
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CHKVffi LDA PLOTY 






3TA PY 






CMP HAXY 






3CC TMINY 






3TA MAXY 






JHP ENDMM 




TMINY 


CHP MINT 
BCS ENOMM 
3TA MINT 




ENDMM 


LDX CKVX 


iOIO WE ORAU 




LDA CJW 


;INTO 




CMP C0L0R1 ,X 


; COLOR I? 




8EQ ENDLIN 


(YES! END OF LIME' 




JMP GETSTK 


;NO, GO GET STICK. 


ENDLlf 


lda m 


;UE AREN'T 




STA DRAUFG 


;DRAUIN6 ANYMORE 




JSR SEARCH 


{SEARCH AND FILL!' 




LDA CURLO 


;GET CURRENT VALUE 




STA LQUk 






LDA CURHI 






STA HlUk 






LOft HI 5 


iPUT AT 15TH 




STA SLLOC 


;POS. IN SCOLIN 




JSR CNVDEC 


i CONVERT TO DECIMAL 




LDA #1 


;NOU REDRAW THE 




STA RORCOL 


{PLAYER'S PATH IN 




JSR REDRAW 


; COLOR 1 (WHITE). 




LDX LEVEL 


{CHECK TO SEE 




LDA CURLO 


ilF WE'VE HIT 




SEC 


;THE TARGET. 




SBC TGTLO.X 






STA LOWK 






LDA CURHI 






SBC TGTHI ,X 






STA H1UK 


iHIT TARGET? 




3PL NEULUL 


: YES-NEW LEVEL 1 




JMP CLRTRK 


;NO, GO CLEAR TRACK 


NEULUL 


LDA LEVEL 


;IF LEVEL < 15 




CMP #15 


{THEN 




BEG NOLINC 


; INCREMENT 




INC LEVEL 


j LEVEL 


■INCREASE SCORE HERE 




NGLINC 


ASL LOWK 


■.SCORE INC = 




ROL H1WK 


;TGT-CUR * 2 




LDA #*FF 


; DON'T PLACE 




STA SLLOC 


iTHE RESULT 1 




JSR CNVOEC 


{CONVERT TO DECIMAL 




LDX #5 


:AND ADD TO SCORE 




ldv m 




SCOLP 


LDA DECIMAL, Y 

CLC 

ADC SCORE .X 










CHP #18 






8M1 NOCARY 






SEC 






SBC #16 






STA SCORE, X 






INC SCORE-! ,x 






JMP NXSPOS 




NOCART 


STA SCORE, X 




NXSPOS 


INY 

DEX 

3PL SCOLP 






LDX #5 


ttm Place the 


SHSLP 


LDA SCORE, X 


: SCORE EN 




ORA ittOfi 


; SCORE LINE #2 




STA SCGLN2+12,X 






DEX 






BPL SHSLP 






LDA #1 


;STOP UB1 FOR 




STA FILLON 


;A MOMENT 




STA SHOOFF 






JSR PMCLR 


i CLEAR P/M AREA 




LDA #64 


[INITIALIZE 




STA STRH6T 


;THE 



JGS 



LDA CKV 
LDX CKVX 

CMP COLOR1 , 
BNE JGS 
LDA CKX 
STA PX 
LDA CKY 
STA PY 
JMP GETSTK 



{ARE WE MOVING 

{ONTO ANOTHER 

{COLOR 1? 

;NO' TRY AGAIN. 

{ALL'S WELL... 

{UPfeTE PX 

{AND 

■PY 

i'GEt 



»TICK. 



THIS ROUTINE HANDLES THE DRAW FUNCTION. 



DRAWIN 



LDA DRAUFG 
BNE DRAUOK 
STA MOVIX 
LDA STkHLD 
STA OIR 
LDA #1 
STA ORAWFG 
STA HASDRN 
LDA PX 
STA IN1X 
STA MINX 
STA HAXX 
LDA PY 
STA INIY 
STA MINT 

sta maxy 
drawqk lda ckv 

LDX CKVX 
CMP C0L0R2.X 
BNE NOCRSH 
JMP CRASH 

NOCRSH LDX MOVIX 
LDA STKHLD 
CHP DIR.X 
3EQ SAMOIR 
INC MOVIX 
[NX 

STA DIR.X 
LDA #8 
STA LGTH.X 

SAMOIR INC LGTH.X 
LDA #3 
STA BDCNT 
LDA PX 
STA PLOTX 
LDA PY 
STA PLOTY 

CCLOOP JSR PLOTCL 
LDY #8 
LDA aO),Y 
AND BITOFF,X 
ORA C0L0R2,X 
(LO),Y 
BDCNT 
BEQ CKCOLR 
LDY MOVIX 
LDX DIR,Y 
LDA XD,X 
CLC 

ADC PLOTX 
STA PLOTX 
LDA YD.X 
CLC 
ADC 



STA 
DEC 



CKCOLR 



TMINX 



PLOTY 
STA PLOTY 
JMP CCLOOP 
LDA PLOTX 
STA PX 
CHP HAXX 
BCC TMINX. 
STA MAXX 
JMP CHK'TMM 
CHP MINX 
BCS CHK'YMM 
STA MINX 



{ALREADY DRAWING' 

:YES' 

;NO, THIS IS THE 

{FIRST TIME-SET UP 

{INITIAL DRAWING 

{VARIABLES. 



DID WE 

RUN INTO ANOTHER 
COLOR 2° 
NO, WE'RE OK. 
CRfiAAASSSHHH! 
UPDATE THE 
TRACKING 
TABLES U! IH 
DIRECTION 
{INFORMATION. 



{NOW PLOT THE 
{LINE WE'RE 
{DRAWING... 



;IN COLOR 2. 



{UPDATE X POS. 

{CHECK MINIMUM 
{AND MAXIMUM 
;X & Y VALUES 
{AND UPDATE IF 
{NECESSARY 
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;THIS 
CRASH 



TIMRST 
DEADCC 



CKSTRT 



RELEAS 



LDA #128 


STAR 


STA STRHOR 


POSITION 


LDA #13 


VB1 ON AGAIN 


STA FILLQN 




JMP CLRDSP 


GO CLEAR DISPLAY 1 


SECTION HANDLES PLAYER'! 


i DEATH 


LDA m 


NO WARBLE SOUND 


STA AUDC 




STA AUDC2 




STA AUDC3 




LDA #1 


NO PLAYER COLOR 


S"!A NOCCHG 


CHANGE IN UBI 


LDA #15 


SET BRIGHTNESS OF 


STA DEDBRT 


PLAYER DEATH. 


LDA #5 


SET DEATH TIMER 


STA TIMER 


TO 5 JIFFIES. 


LDA DEDBRT 


MOVE BRIGHTNESS 


STA AUDC1 


TO DEATH SOUND VOLUME 


LDA RANDOM 


GET RANDOM 


AND #$IF 


DEATH SOUND 


STA AUDF1 


FREQUENCY 


LDA RANDOM 


GET RANDOM 


AND #$F6 


DEATH COLOR 


ORA DEDBRT 


ADD BRiTE 


STA COLPF1 


PUT IN LINE COLOR 


STA C0LPM1 


AND PLAYER COLOR 


LDA TIMER 


TIMER DONE VET' 


BNt DEADCC 


NO, 60 CHANGE COLOR. 


DEC DEDBRT 


DECREMENT BRIGHTNESS 


BPL TIMRST 


IF MORE, GO DO IT. 


DEC LIVES 


1 LESS LIFE 


LDA LIVES 


GET # LIVES 


ora mn 


ADD COLOR 


STA SC0LN2+1? 


AND DISPLAY 1 


cmp mn 


ZERO LIVES"' 


BNE NOTDED 


N0 ! 


LDA UG0MS6&255 


WE'RE COMPLETELY 


STA SCDL 


DEAD, SHOW 
'GAME OVER" 


LDA HGOMSS/254 


STA SCDL+i 


MESSAGE 


LDA CQNSOL 


WAIT FOR START 


AND #1 


KEY... 


BNE CKSTRT 


NOT PRESSED— LOOP. 


LDA CQNSOL 


KEY PRESSED. NOW 


AND #i 


WAIT FOR RELEASE' 


BEQ RELEAS 


NOT RELEASED YET ! 


LDA #SC0LIN&255 


PUT SCORE 


STA SCDL 


LINE BACK 


LDA #SC0LlN/25i 


IN DISPLAY 


STA SCDL+2 


LIST... 


JMP START 


AND START SAME! 



JCTRK 



STA 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDY 
LDA 
AND 
ORA 
STA 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
JMP 



PX 

PL01Y 

PY 

#6 

RDRCOL 

HASDRN 

JCTRK 

REDRAW 

INlx 

PLOT X 

INlr 

PLOTY 

PLOTCL 

#6 

BITQFF,X 

(LO).y 

COLOR! ,X 

<LO),y 

#524 

C0LPF1 

m 

NOCCHG 
HITCLR 
DEADF6 
HSHORT 
CLRTRK 



THE PLAYER'S 
NEW 

COORDINATES. 
REDRAW THE 
PLAYER'S TRACK 
IN COLOR e 



5 THIS PART IS 
■NEEDED TO K0> 
;A COLOR 1 BLOCK 
;AT THE START OF 
;THE PLAYER'S TRACK 
;AFTER IT IS ERASED. 
; (NOBODY' 3 PERFECT') 



i RESTORE DRAW LIME 
; COLOR 



;AND GO START NEW TRACK. 



THIS ROUTINE USES THE TRACKING TABLES, 
OIR AND LGTH, TO REDRAW THE LINE THE ' 
PLAYER DREW. RDRCOL INDICATES THE COLOR 
DESIRED. 



;THIS SECTION PLACES PLAYER AT A RANDOM 
[LOCATION IF THERE ARE MORE LIVES LEFT. 



; DON'T SHOW 
[PLAYER 
iGET RANDOM X 
•MUST BE EVEN 
jAND ON SCREEN 



NOTDED LDA #1 




STA SHOOFF 


NEW 


OC LDA RANDOM 




AND t$FE 




CMP 1159 




BCS NEULOC 




STA PLOTX 


CSH 


LDA RANDOM 




AND »7E 




CMP #65 




BUS CSHY 




STA PLUTv 




JSR PLOTCL 




LDY M 




LDA BITSON,X 




AND (Lfl).Y 




CMP COLORl ,X 




BNE NEULOC 




JSR PHCLR 




LDfi PLOTX 



;GE! RANDOM T 
;MUST BE EVEN 
jAND ON SCREEN 



;IS LOCATION ON 

: COLOR !'"' 

:N0, TRY AGAIN. 

•IT'S Ok, CLEAR P/M 

[SAME 



REDRAW 


LDA IN1X 




STA REX 




LDA IN1Y 




STA RFf 




LDA #8 




STA X 


REDXLF 


LDX X 




LDA DIR,X 




STA REDIR 




LDA LGTH,X 




STA Lb! BY 




LDA #! 




STA 1 


REDYLF 


LDA #3 




STA TIMES 


times; 


LDA REx 




STA PLOTX 




LDA REY 




STA PLOT'i 




JSR PLOTCL 




LDt m 




LDA RDRCOL 




BNE RDC) 




LDA B!TOFF,X 




AND <LO),Y 




STA (LO).i' 




JHP SETNRP 


ENDRD 


LDA m 




STA DRAUFG 




RTS 


RDC1 


LDA BITGFF.X 




AND (LO),Y 




ORA COLORl ,X 




STA (LO),Y 


SETNRP Di 




BEQ NXTr 




LDX REDIR 




LDA REX 




CLC 




ADC X9,X 




STA REX 




LDA REY 




CLC 




ADC YD.X 




STA REy 
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JMP TIMES3 
NXT'f INC t 

LDA Y 

CMP LGTHY 

BEQ JTJRD 

BCS NXTX 
■MO JMP REDYLP 
NXTX INC X 

IDA X 

CMP MOVIX 

BEQ JRXLP 

BCS ENDRD 
JRXLP JMP REDXLP 

•2-BYTE DECIMAL CONVERTER. CONVERTS 
;A 2-B'tTE BINARY NUMBER TO A 5-8YTE 
{DECIMAL NUMBER. WILL PLACE THE 
{DECIMAL NUMBER IN SCOLIN IF DESIRED 
;(SLLOC DETERMINES POSITION). 



CNVDEC 


LDX 14 




lda m 


CDLP 


STA DECIMAL ,X 




DEX 




BPL CDLP 




LDX #4 


CKMAG 


LDA HTUK 




CMP H1VALS,X 




BEQ CKM2 




BCS SUBEM 




8CC NOSUB 


CKM2 


LDA LOWK 




CMP LOVALS.X 




BCS SUBEM 


NOSUB 


m 




BPL CKMAG 




JMP SHOUIT 


SUBEM 


LDA LOUk 




SEC 




SBC LOVALS.X 




STA LOWK 




LDA HlWk 




SBC HIVALS.X 




STA H1UK 




INC DECIMAL, X 




JMP CKMAG 


SHOWIT 


LDX #*4 




LDY SLLOC 




BMI SHEND 


SHQLP 


LDA DECIMAL, X 




ora #$oe 




STA SCOLIN, Y 
i'NY 




DEX 




BPL SHOLP 


SHEND 


RTS 



;THIS ROUTINE MOVES THE STAR AROUND ON 
;THE PLAYFIELD. THE STAR IS ROTATED AND 
;PLOTTED (IN A PLAYER) IN THE VBI. 



MOVSTR LDA SMTIM 
BEQ MSTR 
JMP TRYSHO 

MSTR LDA STRSPD 
STA SMTIM 
LDA STRHGT 
SEC 

SBC #13 
STA STRLY 
LDA STRHOR 
SEC 

SBC #44 
STA STRLX 
LDA RANDOM 
CMP #248 
BCC SAMSTD 



;TIME TO MOVE? 
;YES. GO DO IT 
;NO, GET STICK 
; SET MOVEMENT TIMER 
;UITH STAR SPEED 
(ADJUST P/M 
iCOORDINATES TO 
{MATCH PLAYFIELD 
; PLOTTING 
{COORDINATES. 



WANT TO CHANGE 

THE STAR'S DIRECTION? 

NO, USE SAME. 



NEWDIR LDA RANDOM 


;6ET RANDOM 


AND R7 


; DIRECT I ON 


JMP DIRCHK 




SAMSTD LDA STRDIR 


iGET OLD DIRECTION 


DIRCHK TAX 


; CHECK TO SEE 


STA TMPDIR 


;IF STAR DILL 


LDA STRLX 


;BUMP INTO ANY 


etc 


; PLAYFIELD 


ADC 3TRDTX.X 


; OBJECT. 


STA PlOTx 




LDA STRLY 




CLC 




ADC STRDTY.X 




STA PLOTY 




JSR PLOTCL 




ldy m 




LDA B1TSON.X 




AfJD <LO),Y 


jANY COLLISION'' 


BEQ WAYCLR 


;NO, ALL CLEAR' 


LDA #15 


{HIT SOMETHING, 


STA BSCNT 


; START BUMP SOUND i 


BNE NEUDIR 


iGET NEW DIRECTION 


UAYCLR LDA PLOTX 


; ADJUST STAR 


CLC 


jCOORDINATES 


ADC #44 


iBACK TO P/M 


STA STRHOR 


iCOORDINATES 


LDA PLOTY 


;FRCM PLAYFIELD. 


CLC 




ADC #13 




STA STRHGT 




LDA THPOIR 


{SET DIRECT I ON 


STA STRDIR 




MOMESH LDA #3 


; CHECK ALL 


STA SHORTN 


;4 SHORTS 


3HMVLP LDX SHORTN 


;6ET SHORT # 


LDA SHORTF.X 


; SHORT ALIVE--' 


BEQ NXTSM 


;NO 


LDA SHORTX.X 


;GET x 


STA PLOTX 


j COORD I NATE 


LDA SHORTY, X 


jAND y 


STA PLOTY 


i COORDINATE 


JSR PLOTCL 


;IS SHORT 


LDY m 


{ON... 


LDA BlTSONjX 




(WD (LO),Y 




CMP COLORl ,X 


;COLORl? 


6EQ MOVEIT 


;rUP' 


KILLSH LDX SHORTN 


;STOP THIS SHORT 


LDA #6 


;8Y TURNING 


STA SHORTF ,X 


{FUNCTION FLAG OFF 


NXTSM DEC SHORTN 


{MORE SHORTS? 


BPL SHMVLP 


{YES 1 


JMP TRYSHO 


{NO. 


MOVE IT LDA #3 


{TRY 4 


STA TRIES 


{DIRECTIONS 


LDX SHORTN 


{GET SHORT # 


LDA 3H0RTD,X 


{AND DIRECTION 


STA DIRSAV 


{SAVE IT 


TRYMOV LDX SHORTN 


{GET SHORT i 


LDY DIRSAV 


{AND DIRECTION 


LDA SHORTX.X 


{FIND OUT 


CLC 


{WHERE THE 


ADC DIRX.i 


{SHORT WILL 


CMP #159 


;BE NEXT 


BCS NXTTRN 


{POSITION, 


STA PLOTX 




LDA SHORTY ,x 




CLC 




ADC DIRY.r 




CMP 8S5 




BCS NXTTRN 




STA PLOTY 




JSR PLOTCL 




LDY #6 




LDA BITSON,X 




AND (LO),Y 


{IS IT OVER 


CMP COLORl ,x 


{COLOR P 



VOL. 1 



THE A.N.A.L.O.G. COMPENDIUM 



PAGE 185 



m S07DIR 


;YES! ITS OK' 


NXTTRN DEC TRIES 


iHQRE DIRECTIONS^ 


8!i! KILLSH 


;NO ! 


LDX TRIES 


iGET NEXT 


lda dirsav 

C Lf 


;TR!AL DIRECTION 


ADC DASD.X 




AND H3 




STA DIRSAW 




.JHP TRYMOV 


{AND TRY TO HOME 1 


60TDIR LDX 3HGRTN 


[GET SHORT ft 


LDA PLOT)! 


[SAVE ALL 


STA SHORT;., X 


[NEW SHORT 


LDA PLOTY 


} POSITION 


S1A SHORTY ,X 


[AND DIRECTION 


LOA DIRSAV 


[VALUES! 


STA SHORTD.X 




■jmp nxtsm 


; DO NEXT SHORT' 


; THIS ROUTINE GENERATES NEW 


; SHORTS AT THE PROPER 


TIME IF 


j ANY ARE INACTIVE. 




TRYSHO LDA SHTIM2 


i READY T START 0€? 


BEG TRYSH2 


;YES< 


■JHP 6ETSTH 


:NO! 


TRYSH2 LDA SHTIMI 


; RESET THE 


STA 3HTIM2 


; SHORT TIMER 


LDX 83 


I SEARCH FOR 


5HSCAN LDA 3HORTF.X 


i INACTIVE SHORT 


BEG STRTSH 


|S0T ONE!!' 


DEX 




BPL SHSCAN 




JHP GETSTK 


(NONE FOUN 


STRTSH SIX HOLDSx 




STRTSX LDA RANDOM 


'.RANDOM SHORT X 


CMP «I68 




BCS STRTSX" 




STA PLOTX 




STRTSf LDA RANDOM 


; RANDOM SHORT Y 


AND tt*7F 




LHP «S5 




BCS S7RTSY 




STA PLOTY 




JSR PLOTCL 




• ldy m 




LDA BITSON.X 




AND (LQ).f 




CHP COLOR] ,X 


;0N COLOR !'.' 


BNE STRTSX 


;NO, TRY AGAIN' 


LDX HOLDSX 




LOA PLOTX 


;SAUE ALL 


STA SHORTX,X 


jSHORl 


LDA PLOTY 


(PARAMETERS 


STA SHORTY, X 




LDA RANDOM 




AND #3 




STA SHORTD.X 




LDA Hi 


iTELL PROGRAM 


STA SHORTF,X 


; SHORT IS ALIVE! 


JHP GETSTk 


[LOOP SACK 



LDA 

SEC 
SBC 



STRKOR 
«44 



.DA STRHGT 



[SEARCH FOR FILLA8LE AREA 

■THIS SECTION SEARCHES FOR THE AREA TO 
[BE FILLED. IT IS SO COMPLICATED THAI 
[EXPLANATION OF ITS FINER DETAILS 
[WOULD SE ALMOST IMPOSSIBLE WITHOUT 
;WRITING ANOTHER COMPLETE ARTICLE. AT 
;ANY RATE, II WORKS. THOSE WITH ANY 
[SPECIFIC QUESTIONS SHOULD WRITE ME, 
;CARfc OF AJ4.A.L.0.6. 

SEARCH LDA ft! 

STA FILLON 
LDA H6 
STA D 



SEC 
SBC 
STA 

FINDCL LDX 
LDA 
CLC 
ADC 
STA 
STA 
LDA 
CLC 
ADC 
STA 
STA 
JSR 
LDY 
LDA 
AND 
CMP 
BED 
CHP 
BNE 
LDA 
STA 
•JHP 

FINDC2 LDA 
STA 
JSR 
JSR 
CMP 
BNE 
JSR 
JHP 
CHP 
BNE 
JSR 
JMP 
JSR 
JHP 

F0UND2 LDA 
STA 
JSR 
JSR 
CHP 
WE 
JSR 
■JHP 
LDA 
CLC 
ADC 
STA 
CMP 
BE a 
JSR 
JMP 

F1NDC3 LDA 
STA 
JSR 
JSR 
CHP 
BNE 
JSR 
JHP 
JSR 
■JHP 

OUTL1N JSR 
LOA 
STA 
JSR 
CHP 
BNE 
JSR 



FC2A 



FC2B 



FC2C 



FND2A 



FND2B 



FCIA 



FCiB 



3UTLA 



»13 

Si 

D 
3X 

gyn y 

xSTtV ,A 

SX 

PLOTX 
Sy 

SYD,X 

SY 

PLOTY 

PLOTCL 

m 

<lO) ,r 
BITSON.X 

COLOR1 ,X 

FINDC2 

COLGR2.X 

FINDCL 

«8 

TD 

FQUND2 

D 

I'D 

DECD 

SRCHLC 

COLOR] ,X 

FC2B 

GRABEM 

FINDC2 

C0L0R2.X 

FC2C 

GRABEM 

OUTLIN 

INCD 

m 

TRIES 

DECD 

SRCHLC 

C0LOR2.X 

FND2B 

GRABEM 

F0UND2 

TRIES 

II 

TRIES 

Wi 

FINDCI 

INCD 

FND2A 

D 

TO 

DECD 

SRCHLC 

COLOR] ,X 

FCIB 

GRABBi 

FINDC2 

INCD 

FCIA 

PLSXSy 

tte 

TRIES 

SRCHLC 
COLOR1 ,X 
OUTLB 

GRABEM 
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OUTLB 



OUTLD 

0UTLD2 



OUTLE 
SRCHLC 



LOCTXi 



NGREAD 
GRABEM 



JKP OUTLIH 
LDA TRIES 
CLC 
ADC m 
SIP, TRIES 

ch p m 

BEG OUTLD 
JSR Mb 
JHP OUTLA 
JSR LOCI Xv 
CHP C0L0R2, X 
BNE OUTLE 
JSR FILL 
LDA m 
STA F1LLQN 
RTS 

JSR INCD 
JSR SRCHLC 
JHP QUTLD2 
LDX TD 
LDA sx 
CLC 

ADC SXD,X 
STA TX 
STA PLOTX 
LDA Si 
CLC 

ADC SYD.X 
STA "r 
STA PLOTv 
LDA PLOTX 
CNP 8! 59 
BCS NOREAO 
LDA PlOTy 
ijMP #85 
BCS NOREAD 
JSR PLOTCL 
LD'T HI- 
LDA (LO),Y 
AND BITSON.X 
RTS 
LDA U 
LDX m 
RTS 

LDA TD 
STA D 



JNCD 
DECD 

PLSXSY 

TM1NX2 
CKYMM2 



LDA rx 
STA SX 
LDA Ti 
STA ST 
RTS 
LDA TD 
CLC 
ADC 83 
AND #3 
STA TD 
RTS 
LDA 
SEC 

sec 

(WD 



TD 

81 

83 

STA TD 
RTS 

Ll/H !)JS 

STA PLOTX 
CMP KAXX 
BCC TMIKX2 
STA MAXX 
■JHP CKYMM2 
CMP MINX 
BCS CKYMM2 
STA MINX 
LDA SY 
STA PLQTY 

chp ma 

BCC TMim"2 
STA HAXT 



JHP EiNDft-12 
THINY2 CHP H!NY 

BCS ENDMM2 

STA MINT 
ENDHM2 JSR PLOTCL 

ldv m 

LDA BITOFF.X 

AND (L0),t 
ORA C0L0R2.X 
STA (LO).Y 
RTS 

■FILL ROUTINE 

■AS WITH THE 'SEARCH' SUBROUTINE, THE 
;F1LL SUBROUTINE IS FAR TOO COMPLEX TO 
;EXPLAIN HERE. THIS FILL IS ENTIRELY 
{DIFFERENT FROM THE SYSTEM" S FILL 
(ROUTINE, AS IT WILL FILL ANY SHAPE 
;THAT IS OUTLINED IN COLOR 2, 



FILL 



CI.RC2T 
LOClPi 



loclp; 



F1L1.IT 



LDA 
STA 
STA 
LDA 
SEC 
SBC 
STA 
LDA 
SEC 
SBC 
STA 
STA 
LDA 
STA 
SEC 
SBC 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
STA 
LDA 
STA 
JSR 
CHP 
BNE 
INC 
JSR 
CMP 
BEQ 
AND 
BNE 
LDA 
CHP 
BEQ 
JSR 
BEQ 
LDA 
STA 
LDA 
STA 
JSR 
LDY 
LDA 
ORA 
STA 
INC 
JSR 
CMP 
BEQ 



tte 

AUDC2 
AUDC3 
MAXY 

MINI 
FILFRQ 

mm 

81 

MINX 

FX 

HINT 



81 

HINT 
MAXX 

It! 

MAXX 

MAX'- 

#: 

MA.XT 

SCTALv 

CI'TftLr 

LOCATE 

82 

LOCLP: 

C2TALY 

LOCATE 

82 

L0CLP2 

til 

CLRC2T 

C2TALY 

85 

FILLIT 

LOCPFfJ 

CLRC2T 

FX 

PLOTX 

FY 

PLOTr 

PLOT CL 

88 

(LQ),Y 

COLORS, 

(LD),Y 

SCTALf 

LOCATE 

m 

FlLLIl 



;TURN OFF 
; SOUND CHANNEL 
;2 AND 3. 
i INITIALISE 

;THE h'LL 
; SOUND 
•.FREQUENCY. 
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: 0LL0W 



LOCI 



10CA1 



m 

BNE 
LOft 
3TA 
JSR 
CMP 
BEQ 
AND 
SNE 
INC 
JMP 
LP3 LDA 
CMP 
BNE 
JHF 
LQCLP4 JSR 
CHP 
BE 8 
JHF' 
LDA 
OLC 
ADC 
3TA 
CHP 
SHE 
IDA 
CLC 
ADC 
3TA 
LDA 
ADC 
STA 
LOA 
SI A 
LOA 
STA 
LOA 
STA 
LOA 
Sift 
LOA 
STA 
BEQ 
DEC 
LOA 
CLC 
ADC 
of A 
DIP 
BEQ 
LOA 
CMP 
BNE 
PLA 
PLA 
JMP 
D LA 
PLA 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
LDY 
LDA 
AND 
CMP 
SNE 
LDA 
ORft 
STA 
INC 
LDA 

NOFC2 CHP 

BNE 



NOFFDC 



Hi 
CLRC2T 

81 

C2TALY 

LOCATE 

M 

L0CLP3 

ftl 

CLRC2T 

C2TALY 

FOLLOW 

C2TALY 

81 

LOCLP4 

CLRC2T 

LQCPRV 

BITSQN.X 

F1LLIT 

CLRC2T 

Fx 

81 

FX 
MAXX 

stofx 

LURLU 

SCIALY 

CURLO 

CURH1 

86 

CURH! 

m 

sctalv 

MINX 
F~ 

M 

C2FALY 

«36 

AUDCl 

FILFRQ 

AUDF! 

MOFFDC 

^ILFRQ 



81 
F* 
MAXl 

FIltND 
FX 

HINX 
STOFX 



F I LEND 



roF> 



CLRC2J 



FX 

PLOTX 

FY 

PLOTY 

PLOTCL 

m 

BITSQN.X 

afl).r 

C0L082.X 

NOTC2 

B1T50N,X 

(LO),r 

<LOi.Y 

SCTALV 

12 

CQLORJ ,X 
NGTC1 





LDa 81 






RTS 




N0TC1 


CMP #8 
3NE C3 
RTS 




C3 


LOA S3 
RTS 




LQCPRU 


LDA FX 
STA PLOTX 
LOA FY 

SEC 

sec «i 

CMP HINT 
BEQ NOLOCP 
Sift PLOT* 
JSR PLUTCL 
LDY 86 

LDA BITSON,X 
AND (L0),Y 
RTS 




NOLOCP 


LDA 8& 
LOA 88 
RTS 




;VBJ ROUTINE 




iNTRPT 


LDA \fEi 


IS SPACE BAR 




CMP 8$21 


PRESSED' 




BNE NQPRES 


NO, CHECK FOR PAUSE. 




LDA 83FP 


clear out 




STA KEY 


KEf CODE, 




LOA PAUSE 


COMPL£MEN T 




EOR 8IFF 


the pause 




STA PAUSE 


FLAG, 


NQPRES 


LDft F-ftiJSE 


ARE WE CAUSED? 




BEQ NOPftUS 


NO ! 




jmp xitvbv 


PAUSED, NO UBI! 


NQPftUS l 


MORE BUMP SOUND? 




mi NOBS 


NO, °ROCESS FINER. 




Oftft 8JA0 


MIX VOLUME WITH 




STA AUDC4 


PURE rONE. 
St' UP BUMP 




LDA Wdfl 




STft AUDF4 


SOUND FREQUENCY 




DEC BSCN1 


AND OECREMEN! COUNT. 


NOBS 


LDA TIMER 


TIMER DGUN 10 IZftiP 




BEQ NODES 


YES. DON T DECREMENT 




DEC TIMER 


DECREMENT TIMER. 


NODEC 


LDA 3HTIM2 

3EQ N00EC2 
DEC SHT1M1 

BNE N0DEC2 
DEC 3H1IM2 




N0DEC2 


LDA FfLLON 


ARE WE FILLING? 




BEQ NOFIlL 


MO, DO REST OF VBi . 




JMP XITUBV 


YES, EXIT m 


NOP ILL 


LDA 88 


CLEAR OUT 




STft DEAOFG 


DEAD FLAG 




STft H3H0RT 


AND SHORT HIT . 




LDfi PiPL 


HAS PLAYER i 




and ma 


HIT. PLAYER 2/3'' 




BEQ NOHITS 


NO, IT'S OK 




INC HSHOR1 


YES!!: 


NOHITS 


LOA ?!PL 


HAS PLATER 1 




AND 8*81 


Hi r PlayER r- 




8EQ NOHI T F 


NO 1 




1NL DEftOFS 


YES"' 


NQH1T? 


LDA °BPF 


has player a 




rnd mi 


HIT COLOR 2? 




3EQ NOHITL 


NO! 




INC DEfiDFG 


YES'!' 


NQHITL 


STA HiTCLR 


CLEAR COLLISION. 




LDA NOVT1M 


MOVEMENT 5 1 HER ZERO? 




BEQ NOMOEC 


YES, DON'T DECREMENT 




DEC MOUT1M 


DECREMENT TIMER, 


NOHDEC 


LDA 3MTIM 


STAR HOME r IM£R ZERO 




BEQ NMTDEC 


YES. DON' F DECREMENT 




DEC SHTIH 


DECREMENT TIMER. 
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mi DEC LDA 
BEQ 
DEC 
JMP 



TftROT 



srosip 

UBREST 



lda 

STA 
IDA 
CLC 
ADC 
CMP 
BNE 
LDA 
STA 
lDY 
LDX 
LDA 
STA 
3TA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDfi 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
BNE 



ADC 
STA 
LDA 



STARP 
3TAROT 
STARS'! 

UBREST 
I] 

3TARCT 
STRPQS 

#1 
*7 
STOSTP 

m 

STRPQS 
3TRP03 
STRHGT 

m 

Pie-; ,x 
PL8+8.X 

stars!,? 

PL8 ,X 

STAPB2,v 

PL** 1.X 

SiARB3,f 

PL8+2.X 

STARB4 , > 

PL8*3,X 

3TARB5,"i 

PL0+4,X 

STARB6,'* 

PLU+5.X 

STARS?, Y 

PL«t*.X 

STARBS.Y 

PL8+7.X 

3TRH0R 

HPQSP6 

SHOOff 

END-JB! 

Pa 

#4? 
KPQSPI 



LDA 
STp 



3.) 



adc mi 

T AX 
If 

IH P! 

SfA P 

STA PLH2.X 

sta pu+s,x 

LDA #$48 

STA PL1-I ,X 

STA PL!+!,X 

LDA S4Afi 

ST 3 P> ! t 

LDA NOCCHG 

BNE ENDVB1 

INC CO! Pfil 



;SiAR ROT. TIMER ZERO- 
ifES, ROiATE STAR' 
{DECREMENT TIMER 
j AND SKIP ROTATION. 
;SET ROT. TIMER 
;T0 1 

•INCREMEN! 
;STAR ROTATION 
; COUNTER, 
j ALLOW ONLY 8-4. 
;R0 T . COUNI OK 
iZERO ROT, COUNTER. 
;SAUE ROT. PCS. 
;THIS SECTION 
: DRAWS THE STAR 
ilN PLATER 8 
\WlWi USING 
;THE TABLES 
['STARBI' THRU 
: ' STARB8' . 



;3ET STAR'S 
iHORIZ. POS. 
;0K TO SHOW PLATER' 
;N0, EXIT US! 

;3E1 PLAi£ft"i. 
;HGfi!ZQN T AL 
; POSITION 

;DRaW PLAvER 

:IN PLArER 3 
MEMORY 



; COLOR CHANGE OK 

:N'j, EXP m 

iTES, CYCLE THE COLOR, 



THE FOLLOWING ROUTINE OSES TWO 
-LAYERS <2 & 3> TO DISPLAY THE 
"SHORTS." EACH PLAvER IS USED 
TO SHOW 2 SHORTS. SO SOME 
FLICKER HAY BE OBSERVED , 



ENOVBI INC SHR.IP 
LDA SHFL.JP 

L3R A 
AND II 
TAY 

LDA CPYSTN.Y 

STA CPYS" 

LDA SHFLIP 

AND «! 

"TAV 

LDh #PL3/25i 



1 TOGGLE FLIP 
:HABk FLIP 
;T0 EITHER 
:8 OR I 
;PUT IN Y 
JAND GET IMAGE 
;T0 USE (+/X) 
;GE T FLIP. 
;MASK AND 
; PU'f IN Y 
;PUT PLAYER S 



STA DESTHi 


;IN DESTINATION 


LDA #PL3&255 


; ADDRESS 


STA DES 7 LU 


;H1 £ LO 


LDA 11 


;SET DEST I 


STA DESTff! 




LDA SHSTRT.i 


;6ET START 


STA VBXHLD 


; SHORT 1 


SHORLP LDA M 




LDX DE3TW1 




LDY 3HYHLD,X 


;6ET LAST INDEX 


LDX 14 


iNOU ERASE 


ESSSHO STA (DESTLO.'.Y 


; PREVIOUS 


INY 


; SHORT 


DEX 




BPL ERSSHO 




LDX UBXHLO 




LDA SHORTF ,X 


; SHORT AIM 1 


BEO WXTSHO 


;N0' 


LDA SKORTX.X 


;GET SHORT'S 


LDY SHORTY, x 


(COORDINATES, 


CLC 




ADC 144 




LDX DESTHi 




STA HP0SP2,X 


;SET H0RI2. POS. 


TYA 




CLC 




ADC IH 




STA SHYHLD.X 


;AND VERTICAL PO: 


TA< 




LDX CPYST 




LDA 14 


;NOW COPY 


STA CPYCNT 


; SHORT IMAGE 


SHOCOP LDA SHOIMG.X 


;T0 THE 


STA (DESTLO) ,Y 
INY 

DEX 


i PLAYER 




DEC CPYCNT 




BPL SHOCOP 




NXTSHQ DEC DESTNM 


;HORE-> 


BMI UBEND 


;N0, EXIT' 


LDA DESTLO 


; POINT TO 


SEC 


;NEXT PLAYER 


SBC 1128 




STA DESTLO 




LDA DESTHI 




SBC 18 




STA DESTHI 




INC VBXHLD 




JHP SHORLP 


;AND LOOP BACK. 


UBEND JMP XITUBU 


;DONE WITH VBI ! 


■DATA 




0LI3T OB 4 78, 478, 476 




DB 440,DISP&255,6] 


[SP/256 


OB 4D,4D,4D,4D,4D,4D,$0,*D.4D,4D 


DB 40,4D,4D.4D,4D 


,$D,4D,4D,4D,4D 


db $d,$d.40,$d,5d;$d,sd;*o,*o,*o 

DB SD,*MD,*D,*D,*D,tD,*MD,*& 


06 *D,*D.*0,*-D,*D, 


,40.40, $0,40. 4D 


DB *D,*O,«0,*D,«0; 


,4D,4D.4D,4!),4D 


DB *0,*D.40,$0,$0,*D,*D,$D,*D,*D 


DB 4D ,4D ,4D.4D ,4D .4D ,4D,4Li ,4D ,4[' 


DB 40,40,40,40,40, 


428,446 


SCDL DW SC0L1N 




DB 443 




DW SC0LN2 




DB 441,DLISTi255,DLIST/25i" 


T1TLDL DB 478 ,476 ,$76,471 


i ,476,478 


DB 478 ,479 ,478 ,438 J444' 


OU MASMSG 




DB 4?8,447 




m TITLE 




DB 438,444 


'" 


DU AUTHOR 
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DB *78,*?0,*38,444 

DU STMSG 

D8 $4! 

OU TiTLDL 



SCOLIN OB 
DB 

SC0LN2 OB 
DB 

GOMSG OB 
DB 

MAGMSG OB 
DB 
OB 

TITLE DB 
08 
DB 

AUTHOR 08 
DB 
DB 

STMSG 08 
DB 
08 



CT,CG,CT,CCGL,8,8,8,8,8,8 

8,CC,CU,CR,CCQL,0,8,B,0,8 

CL , CV , CCOL , 8 , 8 , 8 , CS , CC , CO 

CR.CE,CC0L,8,8,8j8, 8,8.8,8 

8,8,8.8,8,C8,Cft.CM,Ct,8 

8,CO,CV,CE.CR,0. 8,8,8,8 

8,8,421 .$2E\*21,*2C,$2F ,$27 

8,*23,$2F.$20 1 f38,$35 

S34,*29,*2E,*2?,0,8 

8,8,8,$66,$<$9,56C,$6C,$47 

«43,$72,8,f75,*78,*4i,8 

$d9,$d?.8,B,8 

8,8,0,*A2,*8?,8,S,*fH 

$AF ,$AD , 8 ,*A8 ,$B5 ,$A4 ,$83 ,*AF 

$AE,8,0,8 

8,8,8,8,fF8,*FSTMS6 08 8,8,8,0,$F8,$F2,$E5,$F3 

*F3,8,8,*F3,5f4,4El,fF2,*F4 

0,8,8,8 



llEUEL 

TGTLG 

T6THI 

3TARSP 

KILLFG 

3HT1ME 

SHSTRT 
SHtHLD 

SHOIHG 

CPYSTN 

DAOD 

DIRX 

DISY 

SHORT* 

SHORTY 

SHORTF 

SHORTD 



TABLES- 
OB 64.16,224,48,248.212,16,4 
DB 243, 224, 212, 224, 68. 168,112, 212 
DB 31, 3?, 44,35,42,43, 3?, 41, 42 
OB 46,48,46.47,47,43,48 

DB 1,1,1 

08 8,8,1,8,1,1,8,1,1,1,1,8,8 

DB 1,1,1 

OB 7,7.7,6,6,6,5,5,5,4,4,4,3 

DB 3.2,1 

OB 8,2 

OS 2 

OB $88,$58,$20,$58,$33 

DB $28 ,128 ,«F8, 128,128 

08 4,9 

DB Iff ,2,1 

OB 8,1.8,$FF 

DB $FF,8,1,8 

OS 4 

DS 4 

OS 4 

DS 4 



2ER01 
SCORE 
3LL0C 
CURLO 
CURHI 
LEVEL 
PAUSE 
IttSDRN DB 
LOUK OB 
HlUk DB 
SCTALr OB 
LIVES DB 



08 
DB 
08 
D8 



OB 



i, 8, 0.8, 8,8 



•STAR PLAYER-MISSILE IMAGES 



3TARB2 DB 
STARB3 OB 
3TARB4 DB 
STARB5 06 
STARB6 OB 
STARS? DB 
STARB8 DB 
STftRCT 06 
STRPOS DB 
3TRHGT OB 
STRHOR DB 



$31 

$42 

$24 

$18 

$18 

$24 

$42 

$81 

3 

8 

8 

B 



,$48. $28 ,$18 
,$43,$28,$16 
,$24,$13,$!8 
,$18',$1C,$1F 
,$13,$33,$F8 
,$24,$CS,$88 
,$C2,$84,$88 
,$82, $84, $88 



,$83, $84, $8 2 

,$88,$84,$C2 
,$88,$C3,$24 
,$F8,$38,$1S 
,$1F,$1C.$13 
,$18,*13,$24 
,$10, $28, $43 
,$18, $28 ,$48 



3TRLX 08 8 

3TRLY OB 8 

THPOIR OB 6 

STRD1R DB 



S7RDTX OB 
STRDTV DB 

3TRSP0 DB 
C0L0R1 DB 
C0L0R2 OB 
C0L0R3 DS 
8ITS0N OB 
BITOFF DB 
BXSTRT OB 
B-STRT DB 
BXINC OB 
SYINC OB 
80RCNT 06 
80RNUM DB 
8DINCX OB 
BDINCY DB 
8DCNT OB 
RXWC DB 
P'TWC OB 
SHOOFF DB 
CKX OB 



CKY 
[NIX 

1NJY 

MINX 

MINY 

MAXX 

MAXY 

REX 

RET 
y 

Y 

3X 
SY 



D8 
OB 
08 
06 
DB 
08 
DB 
OB 
OS 
08 
DB 
OB 
DB 
OB 
DB 



DB 

DS 
OB 
OB 



TY 

FX 

FY 

TO 

D 

BSCNT 

FILFRG DB 

TRIES OB 

FILLQN DB 

C2TALY OB 

NOCCHG DB 

0ED6RT OB 

STKHLD DB 

RORCOL DB 

REDIR DB 

LGTHY 

TIMES 

cxv 

CKVX 
DRAWFG OB 
MQV1X OB 

XD OB 



OB 

m 

OB 
DB 



y 



08 
DB 
08 
DB 
DS 
DB 
08 
08 



SXD 
SYB 
DECIMAL 
ZE802 DB 
RIVALS OB 
LWALS DB 
DIR DS 
LGTH DS 



1,1,0,255,255,255,8,1 

8,1,1,8,1,255,255,255 

4 

148,118,184,181 

$38, $28, $08, $82 

$C8,$3«,$8C,$83 

$C8,$30,$8C,*83 

$3F,$CF,$F3,$FC 

8,158,153,8 

8,8,84,84 

1,0,255,8 

8.1,0,255 

15?, 35,! 57, 35 

8 

3 
8 
8 

8 

8 



3 
8 

8,8,8 
8,8,0 

8,8,8 
8,8,8 
8,8,8 
8,8,8 
0,8,8 

8,1,8 

255,8 

DB 

8 

8,8,8 

1,10, 

256 

256 



,8 

i 

\i 

,255 

.8 

,8 

,6 

,0 

55.8 

,255 



Vj 

188,232,16 



8,0,8,8,8 



END $6888 
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Get All A.N.A.LO.G. Compendium 
Programs on Disk! 



Special Offer for Compendium Owners Only. 



Only $35.00 per set (3 Disks) 

Yes! Send Disk set(s) which contains all the 

programs in the A.N.A.LO.G. Compendium to: 



Name 


Address 


City 


State 


Zip 





□ MasterCard 
Account No. 



[] Payment Enclosed 



□ VISA 
Expires 



Foreign orders add $5.00 for Air Mail Postage. 



Yes, Please enter my subscription to: 



^^mgam a«fe . v,4 i aM a . : =g JiiMrii«.i«i=iiH I || ^^ 

[COMPUTING! 



For Fastest Service, 
Call Our Toil-Free 

US Order Line 

800-345-8112 

In Pennsylvania call 800-662-2444 



THE 
AGAZINE FOR 

ATARI 

COMPUTER 

OWNERS 



D 1 year (12 issues) $28 

□ 2 years (24 issues) $52 

D 3 years (36 issues) $79 



Additional Postage per year: 
Canada & Mexico $8 Surface, $12 Air 
Other Foreign $12 Surface, $48 Air 



Name . 
Address 
City 



State 



Zip. 



D Check #_ 
Card # 



□ M.O. #_ 



a visa a mc a Bin me 

Exp. Date / / 



Your subscription will begin with the first available issue. Please allow 4-6 weeks for delivery of first issue. 

SUBSCRIBE TO 

ANALOG COMPUTING 
ON TAPE OR DISK 

Includes magazine with tape or disk 

Cassette □ V2 year (6 issues) $48 




Disk 



D Full year (12 issues) $90 

. D % year (6 issues) $72 

D Full year (12 issues) $130 



Name . 
Address 
City 



State . 



Zip 



D Check #_ 
Card # 



D M.O. #_ 



a visa a mc a Bin me 

Exp. Date / / 



FOREIGN ORDERS ADD ADDITIONAL $20 TO EACH 6-ISSUE SUBSCRIPTION. 



PUT STAMP HERE 

THE POST OFFICE 

WILL NOT DELIVER 

MAIL WITHOUT 

POSTAGE 



THE MAGAZINE FOR ATARI* COMPUTER OWNERS 



FUMPLDC 

■COMPUTING! 

P.O. Box 23 
Worcester, MA 01603 



PUT STAMP HERE 

THE POST OFFICE 

WILL NOT DELIVER 

MAIL WITHOUT 

POSTAGE 



THE MAGAZINE FOR ATARI COMPUTER OWNERS 



■computing: 

P.O. Box 615 
Holmes, PA 19043 



PUT STAMP HERE 

THE POST OFFICE 

WILL NOT DELIVER 

MAIL WITHOUT 

POSTAGE 



THE MAGAZINE FOR ATARI COMPUTER OWNERS 



■computing: 

P.O. Box 615 
Holmes, PA 19043 






A.N.A.L.O.G. 
COMPENDIUM 

. . .js not just apojher "1001 programs" book. The A.N.AX.O.G. Compendium contains the 
bes4r5f the first ten issues of A.N.A.L.O.G. Computing, the first magazine devote^J^lljfciyely to 
Atari home computer.useijs 

This volume is a must for anyone with an Atari computer. Not only does it coqM 
equal in quality to many commercially available, but it is packed with' tutorir™ 1 " 
tional, and useful home applications as well. 

The A.N.A.L.O.G. CpmSendium is one of the best single sources of high quality < 
grams you can buy. In factfytJu' may find that just one program could be worth the price of the enTir 
book! 



SBN D- t Hm77-DD-l 



$14.95 



